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PREFACE 



One of the most frequent criticisms of technical manuals is that the manner in which the 
material is presented is inconsistent with the needs of those who must use it. For some 
it is too technical; for others it is too basic. To avoid such misunderstandings, we 
should be sure that we agree on the intent of this guide. 

WHO IS THE USER? 

The user is an applications programmer/ analyst who 

• has experience in the use of FORTRAN or COBOL; 

• has had little or no experience in the use of SCOPE 2; 

• may have, but is not required to have, experience in the use of 6000 SCOPE. 

WHAT IS A GUIDE? 

• A guide is a document that goes beyond the presentations of bare facts in a 
reference manual. 

• Its main purpose is to explain; that is, to examine system features, the reasons 
for their existence, and the conditions under which they are used. 

• A guide makes extensive use of examples and illustrations. 

WHAT DOES THIS GUIDE DO FOR YOU? 

• It describes the operating environment at a SCOPE 2 installation. 

• It contains guidelines that will help you to set up and run your programs. 

• It defines system features that can make your programs more efficient. 

Because this guide is intended for applications programmers, the features of SCOPE 2 
that have meaning only to system analysts have been intentionally omitted. Those who 
want more detailed descriptions of the SCOPE 2 operating system and its related products 
may refer to the publications listed under Related Publications. 

HOW TO USE THIS GUIDE 

As a programmer/analyst, you should expect to obtain from this guide the information 
you need for defining your jobs and running them under SCOPE 2. To accomplish this 
goal, you should be aware not only of the subjects discussed, but also the format in 
which the material is presented. 

For those who have no experience with SCOPE 2, the introductory material in section 1 
provides a brief overview of the hardware and software components of the system and 
a brief description of how a job progresses through the system. Section 2 contains gen- 
eral information that applies to the structure of all jobs. Section 3 begins with material 
that describes how compilers are loaded and executed and how the user causes the 
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programs generated by compilers to be loaded and executed. Following this, the user is 
lead into an analysis of the Loader and information telling how to control the loading pro- 
cess. Section 4 describes many of the options available to the user for controlling his 
job. If these options are not exercised, the system controls the job according to a set 
of default parameters. Sections 5 through 9 discuss the organization and transmission 
of data and the use of permanent and temporary files. Section 10 describes system 
utility operations such as copying, comparing, and positioning files. Section 11 contains 
a brief description of file label usage. Features of the system that aid in analyzing the 
program and debugging it are described in Section 12. 

Before you continue, please note the presence of the comment and evaluation sheet at 
the end of this guide. We invite you to make specific comments and suggestions as you 
read the guide and to summarize your opinions when you have completed it. Your assess- 
ment of this material will help us to improve our guides and provide more of the informa- 
tion you need. 



RELATED PUBLICATIONS 

For readers who want a more detailed description of the SCOPE 
about topics not discussed in this guide or information about the 
set, a list of related publications follows. 

Control Data Documents 



2 system, information 
members of the product 



Publication Number 



CYBER 70/Model 76 Computer System Reference Manual 60367200 

SCOPE 2 Reference Manual 60342600 

SCOPE 2 Instant Manual 60344300 

Record Manager Reference Manual 60307300 

Loader Reference Manual 60344200 

Loader Instant Manual 603 72200 

SCOPE 2 Diagnostic Handbook 60344100 

SCOPE 2 Installation Handbook 60344000 

6000 Series Station SCOPE 3.3 Operator's /Reference Manual 60360400 

6000/CYBER 70 Series Station SCOPE 3.4 Operator's Reference Manual 60343800 

6000 /CYBER 70 Series Station Instant Manual 60360500 

COMPASS Version 2 Reference Manual 60279900 

COMPASS Version 2 Instant Manual 60282900 

COMPASS Version 2 CPU Instruction Card 60279700 

COMPASS Version 2 PPU Instruction Card 60279800 

UPDATE Reference Manual 60342500 

UPDATE Instant Manual 60360200 

FORTRAN RUN Reference Manual 60305600 

FORTRAN Extended Reference Manual 60384200 
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Control Data Documents 

FORTRAN Extended Instant Manual 
COBOL Reference Manual 
SORT /MERGE Reference Manual 
SORT /MERGE Instant Manual 
Programming Aids 



Publication Number 

60327900 
60384200 
60343900 
60344400 
60158600 



NOTICE 



This product is intended for use only as 
described in this document. Control Data 
cannot be responsible for the proper func- 
tioning of undescribed features or undefined 
parameters. 
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GENERAL DESCRIPTION 



This section introduces the principles of the SCOPE 2 Operating System, gives a brief 
description of the hardware and software configurations, and describes how a job pro- 
gresses through the system. In addition, it introduces the user to the topic of logical 
files, especially those files defined for every job by the system. Files are described 
in more detail in Section 5. 

INTRODUCTION TO SCOPE 2 

An operating system is a group of computer- resident programs or subprograms that 
monitors the input, compilation or assembly, loading, execution, and output of all other 
programs processed by the computer. The operating system that directs these opera- 
tions for the CONTROL DATA® CYBER 70 /Model 76 and the CONTROL DATA® 7600 
Computer Systems is called SCOPE 2. SCOPE is an acronym for Supervisory Control 
Of Program Execution. 

SCOPE 2 operates on a multiprogramming basis, using the versatility of the computer 
hardware to direct the simultaneous processing of programs. The maximum number of 
programs to be executed simultaneously is specified by the system operator. These 
programs can be written in compiler languages such as FORTRAN or COBOL, or in 
the COMPASS assembly language. 

SCOPE 2 is a collection of programs that monitor and control compilation, assembly, 
loading, execution, and output of all programs that users submit to the computer. 
SCOPE 2 controls storage assignment tasks and the sequence in which jobs are pro- 
cessed. For each job, the system prints maps and dumps of memory to aid in de- 
bugging, detects errors, and prints diagnostic messages. It allows modification of 
stored programs through use of special editing routines. Jobs are submitted to SCOPE 
through operator stations. An operator station is a computer system that has been 
programmed to communicate with the SCOPE 2 system. SCOPE 2 returns job output 
and user-created files to the station at which the job originated. 

SCOPE 2 features include: 

• Multiprogramming of jobs throughout the system 

• Record management that supports a variety of tape record and block formats 

• Permanent file management to protect information from access by unauthorized 
persons 

• A chronological record called a dayfile for each program run showing the re- 
sults of each control statement processed and any problems encountered. This 
record is printed automatically when the program has been run. 

• Communication with operator stations that submit job and data files to the 
SCOPE 2 operating system and receive the job output file and user-created out- 
put data files 
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OPERATING ENVIRONMENT 

SCOPE 2 resides in a CONTROL DATA CYBER 70/Model 76 or 7600 Computer 
System. The hardware configuration of the computer system depends on the needs of 
the particular installation. The needs will also determine the product set in use. The 
following paragraphs briefly describe the components of the computer system and the 
possible hardware /software configurations that may exist under SCOPE 2. 

HARDWARE CONFIGURATION 

The CYBER 70/Model 76 and 7600 Computing Systems are large-scale, solid-state, 
general-purpose digital computing systems. The advanced designed techniques incor- 
porated in this system provide for extremely fast and efficient solutions for large- 
scale, general-purpose processing. 

A basic system (Figure 1-1) includes a central processor unit (CPU) and a number of 
peripheral processor units (PPU). Some of the PPUs are physically located with 
the CPU and others may be remotely located. The PPU provides a communication and 
message switching function between the CPU and individual peripheral equipment. Each 
PPU may have a number of high-speed data links to individual peripheral equipment as 
well as a data link to the CPU. 

The _ data links may also be used to communicate with a variety of operator stations. 
Stations are self-contained processing systems that serve primarily as input /output 
processors for the CPU. The stations may connect through a first level PPU (FLPP) 
or directly to the CPU, as in the case of the 7611-1 I/O Station. 

Central Processor Unit (CPU) 



The CPU is a single integrated processing unit. It consists of a computation section, 
small core memory, large core memory, and an input /output multiplexer. The sections 
are all contained in the main frame cabinet and operate in a tightly synchronous mode 
Communication outside the main frame cabinet is asynchronous. 

Computation Section 

The computation section of the CPU contains nine functional units and 24 operating 
registers. The units work, together to execute a CPU program. Data moves into and 
out of the computation section of the CPU through the operating registers. 

Core Memory 

The CPU contains three types of internal memory arranged in a hierarchy of speed 
and size. 

1. The instruction stack contains 12 60-bit words for issuing of instructions. The 
stack holds the latest ten instruction words and the two- instruction word look- 
ahead. Program loops can be held in the stack thereby avoiding memory references. 

2. The small core memory (SCM) contains 32, 768 or 65, 536 60-bit words. Each 
word holds ten 6-bit characters. 

3. The large core memory (LCM) contains 256,000 or 512,000 60-bit words. 
Instructions cannot be executed directly from LCM. 
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The SCM performs certain functions in system operation that the LCM cannot effectively 
perform. These functions are essentially those requiring rapid random access to unre- 
lated fields of data. The first 4K (octal) addresses in SCM are reserved for the input/ 
output control and data transfer to service the communication channels to the PPU. 
CPU object programs do not have access to these areas. The remainder of the SCM 
may be divided between fields of CPU program code and fields of data for the currently 
executing program. A small portion contains a resident monitor program. 

Input /Output Multiplexer 



The function of the CPU input /output multiplexer (MUX) is to deliver 60-bit words to 
SCM for incoming data, to read 60-bit words from SCM for outgoing data, and to inter- 
rupt the CPU program for monitor action on the buffer data. In the basic system, the 
MUX includes eight 12-bit bidirectional channels of which one is reserved for use by 
the maintenance control unit (MCU). 

Peripheral Processor Unit (PPU) 

The peripheral processor units (PPU) are separate and independent computers, some of 
which may reside in the main frame cabinet. Others may be remotely located. A PPU 
may be connected to the MUX, another PPU, a peripheral device, a controller, or a 
mix of these. PPUs that connect directly to the MUX, whether on the main frame or 
remotely located, are termed first level PPUs (FLPP). PPUs drive many types of 
peripherals without the need of an intermediate controller. 

Maintenance Control Unit (MCU) 

The maintenance control unit (MCU) is a main frame PPU with specially connected I/O 
channels. The MCU performs system initialization and basic recovery for the system. 
It also serves as a maintenance station for directing and monitoring system maintenance 
activity. 

System Mass Storage 



System mass storage consists of one or two CONTROL DATA® 7638 Disk Storage Sub- 
systems. Each 7638 Disk Storage Subsystem consists of two controllers and one disk 
file. Either one or two 7600 first level PPUs can be connected to each controller. 
The approximate data capacity of the system is 845 million 6-bit characters. 

Stations 



Several varieties of operator stations may be connected to the CYBER 70 /Model 76 or 
7600. Each station operates under control of its own operating system and is respon- 
sible for supporting unit-record, magnetic tape, or communication equipment. 

On-Line Magnetic Tape Units 

A configuration optionally includes one to eight CONTROL DATA® 657-X or 659-X Mag- 
netic Tape Units driven by a controller directly connected to one or two first level PPUs, 

On-line magnetic tape units are accessed through record manager requests. Information 
is transferred directly to and from the on-line unit without the intermediate transfer to 
mass storage that takes place for staged magnetic tapes at stations. 
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SOFTWARE CONFIGURATION 

Software can be considered as consisting of an operating system (SCOPE 2) and a pro- 
duct set that perform as a matched set to translate the user's request into instructions 
to the hardware. 

The product set complements the SCOPE 2 operating system to meet the user's require- 
ments for scientific applications and commercial data management. 

The SCOPE 2 product set includes: 

COMPASS Assembler 

FORTRAN (RUN) Compiler 

FORTRAN Extended (FTN) Compiler 

COBOL Compiler 

Sort /Merge (SORTMRG) Program 

UPDATE Library Maintenance Program 

7611-11 Service Station Operating System 

6000/CYBER 70 Series Station Operating System 

7611-1 Input /Output Station Operating System 

7611-2 Magnetic Tape Station Operating System 

SCOPE 2 consists of a group of program modules. Three of these modules are parti- 
cularly significant to the user. These are the loader, the segment loader, and the 
record manager. 

Loader 

The SCOPE 2 loader loads core image (absolute) modules and object (relocatable) modules 
in response to calls from the system and from users. Modules, that is, subprograms 
and data, can be loaded into user SCM and LCM from system and user libraries and from 
files attached to the job. Programs can be called according to program name, file name, 

\j± oiiLJ. V ijyjLiiL iidxiAO. j-j .a. 1. 1* J. ncxx x \~±\~± ^n^^o x±±a.va^ in an v_^k^j^v-u muuuiu en \-* oauiaii^u xx win 

system or user libraries. A reference to an external symbol causes the module con- 
taining the symbol as an entry point to be loaded and linked to the module containing the 
reference. 

Usually, the loader increases or decreases the amount of SCM and LCM available to the 
user (field lengths) according to the requirements of the program being loaded. This 
automatic core allocation can be overridden if the user desires. 

A number of loader options permits the user to request load maps, presetting of core, 
execution or no execution following the load, libraries to be used for satisfying externals, 
etc. 

The loader executes in the user field length. Programs that exceed available core 
memory storage can be loaded by organizing them into subdivisions that can be called, 
executed, and unloaded through the use of overlays. This process of overlaying is con- 
trolled by the user. 
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Segment Loader (SEGLOAD) 

Programs that exceed available core memory storage can be loaded and executed by- 
organizing them into subdivisions called segments. The user controls the segmentation 
of a program through directives issued to the segment loader (SEGLOAD). 

A segmented load is more elaborate than an overlay load. SEGLOAD has the following 
features. 

• A segment can have more than one entry point. 

• Segment loads are implicit. Execution of an instruction that refers to an entry 
point in a currently nonloaded segment automatically results in calling the 
SEGLOAD resident program (SEGRES) which assumes control of loading of 
segments. 

• A segment load can involve more than one level. This feature allows gaps in 
memory between segments that are logically connected. 

• Calls for the SEGLOAD loader can be made through the control statement only. 

Record Manager 

The record manager acts as an interface between the user logical input /output functions 
and SCOPE physical input /output functions. It performs the following functions for the 
user. 

• Recognizes nine record types, four block types, and three file organizations 
(file access methods) 

• Detects the following conditions on a file according to file format: 

beginning of information 

end-of-record 

end-of-section 

end- of- partition 

end -of- information 

Blocks and deblocks records 

Passes data in the form of partial or full records between the user buffer and 
system I/O buffers in LCM 

Controls the transfer of large blocks of data from the system devices (mass 
storage and on-line tapes) to LCM and vice versa 

Manipulates tape labels 

Detects errors in format 

The record manager does not execute in the user field length; it executes in the SCOPE 
2 job supervisor area. 

COMPASS Assembler 



The COMPASS assembler language allows the user to express all hardware functions of 
the CYBER 70 /Model 76 central and peripheral processors symbolically. 
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COMPASS produces a binary file used by the loader to establish an executable program. 
Pseudo instructions provide the user with a variety of options for generating macro 
instructions and obtaining a listing of source statements and object code ranging from 
brief to detailed. Errors detected by the assembler are noted. 

FORTRAN Compilers 



Two compilers are offered for the CYBER 70 /Model 76: FORTRAN (RUN) and FORTRAN 
Extended (FTN). 

FORTRAN (RUN) gives mixed mode arithmetic, masking (Boolean), logical and relational 
operators, shorthand notation for logical operators and constants, expressions as sub- 
scripts, variable dimensions, and variable format capability. 

FORTRAN also gives conversion formats for all data forms, array references with fewer 
subscripts than dimensioned, Hollerith constants in arithmetic or relational expressions, 
and left- or right- justified Hollerith constants. The record manager provides access to 
files generated by other programming languages. 

In addition to the above features, FORTRAN Extended supports random access data files 
and provides ANSI diagnostics and a debug facility. It also provides three levels of 
optimization selected by the user: standard compilation, fast compilation, and fast 
execution. 

COBOL Compiler 

The COBOL compiler combines with SCOPE and the record manager to simnlifv- the nro- 
gramming of business data processing problems. The COBOL compiler produces easily 
modifiable source programs decreasing program development time and program conver- 
sion costs. 

COBOL for the CYBER 70 /Model 76 provides full ANSI compatibility through level 3 sort 
files in conjunction with the sort /merge program. A report writer facilitates flexible 
formats for printed reports. Segmentation and overlay of the object program extend the 
flexibility of the COBOL compiler. 

SORT /MERGE Program 

The sort /merge applications program accepts input from magnetic tape or disk and con- 
structs sorted output to user specification on tape or disk. Sort /merge executes under 
control of SCOPE in a multiprogramming environment. The user may call the flexible 
set of routines by a macro instruction in the user's subprogram, by a control statement 
in the main program, or by the COBOL SORT verb. 

UPDATE Program 



UPDATE provides a means of maintaining Hollerith card images in conveniently updatable 
compressed format. The user converts a collection of decks, for example FORTRAN 
or COMPASS source decks, into a file called the program library. Each card in each 
deck is assigned an identifier when it is placed on the program library. Later, the user 
can reference any card for inserting, deleting, or replacing lines of code in the program. 
After the program is corrected, the new version of the program can be passed to a 
compiler or assembler for processing. Corrections can be temporary for the purpose 
of testing new codes or can be permanent modifications to the program library. 
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7611-11 Service Station Operating System 

The 7611-11 Operating System executes on a 7611-11 Service Station (Figure 1-2). It 
services the 7600 or CYBER 70/Model 76 Computer System by sending job decks to it 
for batch processing and by processing output files from jobs. Jobs can originate at 
a card reader at the 7611-11 or at local and remote batch terminals. Two 7611-11 
stations can be connected to a first level PPU. Features of the 7611-11 Service Station 
Operating System are that it: 

• Links the SCOPE 2 Operating System with unit record equipment 

• Multiplexes data flow 

• Serves as local batch entry station for SCOPE 2 

• Provides remote batch capability for SCOPE 2 
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Figure 1-2. 7611-11 Service Station Configuration 
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6000/CYBER 70 Station Operating System 

A site that has both a 7600 Computer System (or CYBER 70 /Model 76 Computer System) 
and a 6000 Series Computer System (or a CYBER 70/Model 72, 73, or 74 Computer 
System) may choose to link the two systems. The 6000 or CYBER 70/Model 72, 73, or 
74 serves as a batch entry station and provides the peripheral processing for the 7600 
•or CYBER 70/Model 76. The station executes under control of either the SCOPE 3.3 
or SCOPE 3.4 operating system (Figure 1-3). It provides the operator with a command 
language paralleling that available on the 6000 SCOPE operating system. Job decks 
entered at the 6000 station card reader are routed either to the 7600 or the 6000 Series 
computer through a parameter supplied by the user on the first card of the job deck 
(the job identifier card). Each job sent to the 7600 is tagged with its station origin so 
that instructions for the operator and output from the job can be routed back to the sta- 
tion that originated the job. Two 6000/CYBER 70 stations can be connected to a first 
level PPU. 
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Figure 1-3. 6000 or CYBER 70 Series Station Configuration 
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7611-1 Input /Output Station Operating System 

The 7611-1 I/O Station Operating System services the 7600 or CYBER 70/Model 76 
Computer System by sending job decks to it for batch processing and by processing 
output files from jobs. The I/O station operating system resides in all six PPUs that 
comprise the 7611-1 I/O Station (Figure 1-4). The normal mode of operation is for 
the I/O station to be coupled to a channel of the I/O multiplexer and to be in communi- 
cation with the SCOPE 2 operating system. 

Features of the 7611-1 I/O Station Operating System include: 

• Isolation of the high-speed CPU from low-speed peripheral devices by transfer- 
ring all files from the station to system mass storage so that efficient CPU 
utilization can be realized 

• Automatic routing of input files to the CPU and processing of output files from 
the CPU in a manner that optimizes the use of peripheral equipment 

• Accounting information maintained for each job in a system dayfile 

• Operator control of utility operations independent of SCOPE 2 
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Figure 1-4. 7611-1 I/O Station Configuration 
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7611-2 Magnetic Tap e Station Operating System 

The 7611-2 Magnetic Tape Station (Figure 1-5) has the sole purpose of providing efficient 
tape staging for SCOPE 2. Staging is the process of transferring magnetic tape files to 
or from system mass storage so that efficient CPU utilization can be realized. 

The normal mode of operation is for the 7600 or CYBER 70 /Model 76 Computer System 
to be linked to at least one batch entry station in addition to the 7611-2 Magnetic Tape 
Station. Jobs submitted through the batch entry station request tape staging through 
SCOPE 2 control statements. The operator at the 7611-2 Magnetic Tape Station responds 
to the requests by mounting or dismounting input and output tapes from the units at the 
station. 
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Figure 1-5. 7611-2 Magnetic Tape Station Configuration 
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JOB FLOW 

A job enters the system in the form of a job deck submitted at a local or a remote 
station. From the station, it is transmitted to the CYBER 70/Model 76 where the job 
resides in the job input queue. Information concerning station messages is inserted into 
the job's dayfile. From the job input queue, the job proceeds in three phases: job 
initiation, job processing, and job termination. Figure 1-6 shows a generalized diagram 
of job flow. 
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Figure 1-6. Job Flow Through System 



JOB INITIATION 



The operating system examines the job statement parameters to determine whether any 
dependencies exist between the job and any other jobs in the system, and to determine 
the resources needed. The job remains in the job input queue until dependencies are 
satisfied, until system resources (for example, the number of on-line tape drives) re- 
quired for initiation are available. The algorithm used for scheduling on-line tape drives 
eliminates the possibility of system deadlock when the job is executing even though the 
total number of units required is not available. 

SCOPE 2 divides the job deck into two files (Figure 1-7): the control statement section 
becomes the job control file; the remainder of the deck becomes a file named input. 

Initiation of a job includes: preparing a job-related system area and positioning the iob 
control and input files for the first job step, constructing an SCM image in LCM, and 
placing the job in a waiting queue for the CPU. 
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Figure 1-7. Job Deck Translation 



JOB PROCESSING 



As a job advances from step to step, the operating system reads and interprets control 
statements in the job control file. It assigns resources as required. While waiting 
(for example, for assignment of resources, operator intervention, staging of files) a 
job's residence can change from core (SCM or LCM) to system mass storage in response 
to the operating system's evaluation of the job's needs. For example, if I/O access 
requires the user LCM area or LCM system buffers, then the operating system furnishes 
residence for the job in LCM. The operating system changes residence of a job as 
needed by the job and as determined by overall considerations of scheduling the CPU. 
Job scheduling establishes the job's residence progressively through three storage levels: 
mass storage, LCM, and SCM. Jobs receive an aging increment while waiting in mass 
storage and in LCM to ensure that every job is given a chance to execute in SCM. Job 
field length requirements are evaluated against available memory to maximize use of 
large and small core memory. The CPU scheduling process selects a job to which the 
CPU is assigned and controls memory so that the jobs selected can be brought into SCM. 

The system under the control of installation selected time limits and options ages the 
priority of a job to ensure every job's opportunity to execute. 

A history of the job is maintained in a dayfile for the job. At job end, the dayfile is 
written in a file named OUTPUT. OUTPUT is also the default name of a file used for 
list output by compilers and assemblers. OUTPUT is printed automatically at the 
station of job origin. 
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JOB TERMINATION 

At normal or abnormal completion of a job, the operating system returns all resources 
stil, assigned to the job to the system for rescheduling. These resources include on- 
line tape drives, user field length areas of SCM and LCM, job-related system areas 
in SCM and LCM, and files not yet unloaded. 

THE JOB DAYFILE 

The dayfile is the short list of comments at the end of the output for a job. It presents 
an abbreviated history of the progress of the job through the system. Each control 
statement is listed in sequence followed by messages associated with the job step. If 
a job is rerun, the control statements processed prior to the rerun are listed without 
times. The list is terminated by the message JOB RERUN. 

A dayfile usually consists of the following items as illustrated in Figure 1-8. 

1. First header line: identifies operating system, its current modification level, 
and the date the job was run in two forms. The first form is either month, 
day, year, or day, month, year, depending on an installation option. The second 
form is Julian notation. 

2. Second header line : identifies site and contains information determined by an 
installation parameter. 

3. Column heads : the leftmost column (up to the first asterisk) identifies the clock 
time for each job step, the middle column (between the two asterisks) identifies 
the accumulated CPU time for the job. For some job manager messages there 
is no CPU time for the job step, and the clock time is in the middle column 
rather than the left column. The rightmost column identifies the system module 
that used the CPU time, or if execution is in the user field notes USR. 
Entries commonly noted are the following. 

SYS System (I/O requests, etc) 

USR User program, including compilers and assembler time 

LOD Loader 

JOB Control statement processing 

ggg Station processing (ggg is station identifier; for example, CCP 

may indicate the 6000 station) 

4. Station subheading: gives the time the job was submitted at the station, the 
station identification, and the fabricated job name. This line varies according 
to the station that submitted the job. 

5. Control statement: the first statement is always the job identification statement; 
the last control statement listed is the last one processed by the job. Each 
control statement is listed in sequence, prefixed by a hyphen. If the job abnor- 
mally terminates, not all of the control statements will be listed. 

6. Dayfile messages: Any messages related to the control statement processing 
are indented below the statement. These messages are listed in detail in the 
SCOPE 2 Diagnostic Handbook. 
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Figure 1-8. Sample Dayfile Listing 

Acco unting Information 

When a job reaches completion, SCOPE writes a summary of basic accounting data onto 
the dayfile for the job (Figure 1-8). Accounting information consists of the following 
data in decimal. Items marked by ** are not included when an installation parameter 
is set to inhibit them. An entry is omitted if it is zero or is irrelevant for the job 
(for example, the average for on-line tape units appears only for jobs using on-line 
tapes). 

** 1. Maximum number of files active at any one time during the job. This number 

may be higher than expected because it always includes the files that the system 
creates for the job: INPUT, OUTPUT, job control file, and the dayfile. 

** 2. File open and close requests 

** 3. Data transfer requests (COMPASS GET /PUT and READ /WRITE macro calls) 

** 4. File control and/or positioning requests (BKSP, SKIPF, etc) 

** 5. Record manager /buffer manager data transfer requests for next buffer 

** 6. Record manager /buffer manager control and /or positioning requests when no 
data is in buffer 
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Mass storage requests to queue manager by record manager 

I/O recall requests; number of times job waits for I/O 

SCM used expressed in kiloword seconds. Each kiloword second means that 
the job used a thousand words for a second. 

LCM expressed in kiloword seconds. Each kiloword second means that the 
job used a thousand words for a second. This does not include LCM system 
I/O buffers. 



11. Number of I/O words transferred by SCOPE for the job in millions of words 
** 12. Mass storage used expressed in megaword seconds 

** 13. On-line tape unit usage expressed as tape seconds, that is, each second repre- 
sents the CPU time for which the job had possession of an on-line tape unit. 

14. User execution time, that is, the CPU time used for executing programs in the 
SCM field. This value is expressed to the nearest millisecond. 

15. CPU time used by the job expressed to the nearest millisecond. This value 
includes system overhead and user execution time. 

16. The number of times the job was transferred (swapped) between SCM and LCM 

INTRODUCTION TO LOGICAL FILES 

A SCOPE 2 logical file is a collection of information identified by a name and delimited 
by a beginning of information and an end of information. SCOPE 2 regards all groups 
of information in the system as files and is, therefore, said to be a file-oriented system. 
Files directly accessible to the computer system can reside on system mass storage and 
on on-line magnetic tape units. Other files can exist in the form of punched card decks 
or magnetic tapes when they are entered into the system and copied onto mass storage. 
Data on files leaving the system can be written on magnetic tape, punched on cards, or 
printed. 

Users accustomed to 6000 SCOPE must realize that many of the file terms and concepts 
with which they are familiar do not apply for SCOPE 2. For example, SCOPE 2 has no 
parallel to the physical record unit (PRU). 

Information on files is divided into units of data called logical records. SCOPE 2 recog- 
nizes a wide variety of logical record formats to allow information interchange with other 
computer systems. Logical records, depending on their definition, consist of a fixed or 
variable number of 6-bit characters. 

NAMING FILES 

A SCOPE 2 logical file name (lfn) is a 1 to 7 alphanumeric character symbol, the first 
character of which must be A to Z. Any reference to the file (for example, to read 
from it, write on it, position it, or change its characteristics) must use the file name. 

The name of the job input file (INPUT) is assigned by the system and cannot be changed. 
In addition to INPUT, the file names listed in Table 1-1 have special meaning to SCOPE 
2. A file assigned one of these names is automatically processed at job termination. 
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TABLE 1-1. SYSTEM FILE NAMES 



lfn 


Action 


OUTPUT 


Line printer listing 


PUNCH 


Punching on 80- column Hollerith cards 


PUNCHB 


Punching in SCOPE binary on 80-column cards 


FILMPR 


Microfile printing > 




FILMPL 


Microfile plotting 


Reserved for future use 


HARDPR 


Hardcopy printing 




HARD PL 


Hard copy plotting > 





INPUT, OUTPUT, PUNCH, and PUNCHB are described in Section 9. Processors for 
the microfile and hardcopy files are not part of the standard SCOPE 2 system. The 
file names are reserved for future use. 

The system libraries are also assigned names by the system and are available to any 
job. 

Most standard programs and product -set members have an established set of file names 
that they use for input and output. For example, the COMPASS assembler and the 
FORTRAN and COBOL compilers assume source language input is on INPUT, that list 
output is on OUTPUT, and that executable binary output is on LGO. The compilers and 
assembler all permit the user to substitute other files for the standard set. 

Files used by object programs have names assigned by the programmer in the source 
language program. 

FORTRAN OBJECT-TIME FILE NAMES 

The FORTRAN language does not refer to a file directly by its file name. Some of the 
I/O statements imply certain system file names; others refer to a file by a unit number. 
Thus, the READ fn, iolist statement refers to file INPUT. The PRINT statement refers 
to file OUTPUT, and the PUNCH statement refers to file PUNCH. Other READ and 
WRITE statements, positioning statements, and unit checking statements use unit numbers, 
where the number can be 1 through 99. 

You must correlate the FORTRAN language references with the actual file names through 
the file list on the PROGRAM statement. If you use a FORTRAN statement such as 
PRINT, PUNCH, or READ fn, iolist, you must list the implied file (OUTPUT, PUNCH, 
or INPUT) on the PROGRAM statement. If an I/O statement refers to a unit number, 
you must list the file name as TAPEn, where n is the unit number. That is, a refer- 
ence to unit 16 is listed as TAPE 16, the lfn by which the system knows it. This does 
not mean that TAPE 16 must be a magnetic tape file. 
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The Program illustrated in Example 1-1 contains READ and PRINT statements and a 
WRITE statement referring to unit 1. Thus, its PROGRAM statement lists INPUT 
OUTPUT, and TAPE1. ' 



List of f I les used 




Example 1-1. Correlating File Names with FORTRAN I/O ■ Statements 

Equating File Names 

FORTRAN allows you to equate two logical file names. One application of this feature 
is to make a READ or WRITE statement more flexible. For example, if the I/O state- 
ment refers to a unit number, the user can specify it as INPUT OUTPUT PUNCH or 
PUNCHB simply by renaming it on the PROGRAM statement. It is also convenient where 

T?np S Tp 4 7i° r S ° me ° subroutines refers to a file by a name that is illegal in the 

r OR I RAN language. 
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Example 1-2 illustrates a FORTRAN program that uses the INPUT, OUTPUT, and 
PUNCHB files. The statement that writes on unit 1 now writes on PUNCHB. The file 
named PUNCHB is automatically punched in binary when the job terminates. 



CONTROL DATA 



FORTRAN CODING 




Example 1-2. Equating File Declarations on FORTRAN PROGRAM Statement 

COBOL OBJECT-TIME FILE NAMES 

The user assigns a SCOPE logical file name to each COBOL inplementor name through 

•1-1 A CCTPAT „"!„,, ,-~ : „ +U~ T7ITT TP r* r> AT T< T> <"> T ,~ „ ,~ „,*«»,, —U 1 *, + U ~ TATTITTT" rMTTTlTTTn „ 4-.'^„ 

Liic nooiuiv uiauoc 111 uic r iiJi^ _ ^ui\ i jliuij pdi agi apu m liic i±\ x~ u i - v_;u i jt u x sculiuii, 

Any legal SCOPE 2 name can be used. 
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Example 1-3 illustrates a COBOL program that has FD entries for COBOL files LIST- 
FILE, PARAM-FILE, and TEST-FILE. The ASSIGN clauses assign these files to 
SCOPE files named OUTPUT, INPUT, and DISK1. 




Example 1-3. COBOL File Name Assignments 
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USING SCOPE CONTROL STATEMENTS 



In the typical case, a programmer writes a program in some language (for example, 
FORTRAN Extended) and submits it to the computer operator in the form of a job deck. 
Where terminals are available, card images may replace the card deck. The same rules 
apply for job decks and card images. 

In addition to the source language program, the job deck must include SCOPE control 
statements through which the programmer provides the information SCOPE needs to 
supervise the job and perform job-related and file-related functions. This section 
describes how the source program and control statements are organized into job decks. 

THE JOB NAME 

Assignment of a name to the job is the first step in preparing any job deck. Looking 
at Example 2-1 you will see that the name of the sample job is JOBSAM. This name 
is punched on the job identification statement. 

A job name .must begin in the first column of the job identification statement. A job 
name can be any combination of up to seven letters and numbers but the first character 
must be a letter. Blanks cannot be embedded within a job name. When the job name 

1~ 1 Zi.^.^'XC /-., « « >-* « A -K~-« n ■** 1 j-**3 l^-r-r +V-»^ *-v»^+4 ^-v-Kl *^1 *-* «-» V* r-» -YV\ ^+ /TS V* d \ 1+ mil of Ko + QT» TY1 1 nQ t O/^ \~\tT O 

IS UV llSCli V Uil <* l - ; *- : *-' liI P< ::lllJ - c:u U J tllc upiiunai pciJ. a.i±J.ci-^x o /, n muoi, >_><^ 1,^,1 iiiniai,v-u uj ex 

period or right parenthesis. For example, each of the following job statements shows 
the job name correctly terminated. 



\IOBNAME. fJOBNAME) 



f* 



Each job must be identified by a unique name both at the station and at the central com- 
puter. Suppose you select the name PROCEED for your job and a job with this name 
has already been submitted. The problem is twofold. First, how does the station dif- 
ferentiate your job from other jobs of the same name, and second, how does SCOPE 
differentiate jobs submitted from one station with those of the same name from some 
other station? 

When the job enters a station, the station automatically replaces the sixth and seventh 
characters in the name with two characters unique for each job at the station. As a 
result, a job named PROCEED might be processed with the name PR0CE14. If the 
name consists of fewer than seven characters, the station fill's the unused character 
positions with zeros and adds the sixth and seventh characters. Thus, a job named K 
might be changed to K00006M. 

Next, when the station sends the job to the central computer system, it sends a 6- char- 
acter internal identifier. The first three characters identify the station originating the 
job; the next three characters identify a terminal at the station. 

Even though two or more stations might submit a job named K00006M concurrently, 
SCOPE 2 does not confuse the jobs; each job is uniquely identified. 
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CONTROL DATA 



FORTRAN CODING FORM 



J|OBSA|H,CP7|Q 
TAPE! 



STAGEK 
GO, 
i/S/9 



5 

10 

100 



110 



TN. 



05 
06 



4n 
PROG 
PRIN 
FORM 
READ 
FCRM 
IF ( 
IF 
IF ( 
GO T 
CALL 
AREA 
FRIN 
FOR 
F18. 
fcRIT 
GO T 
STOP 
ENC 

SUER 
PRIN 
FGRH 
RETU 
ENC 



coXjumn 



MA 



1,PCST) 



one. 
RAH ONE 
T 5 
AT (1H) 

100, EASE, 
AK2F10.2 
I.GT.O) GO 
EASE.LE.O) 
HEIGHT. LE. 
106 

MSG 

= .5*8ASE 
T 110, EASE 

T (///,» 
5,/,* AREA 
E (1) AREA 
C 10 



(INPUT, OUTPUT, TAPED 



II 



Control statement 
section 



HEIGHT, I 

) 

TO 120 

GO TO 105 
G) GO TC 1 



'HEIGHT 
, HEIGHT, ARlE* 
ASE=»F20.5,* HEIGHT 



=*F20.5) 



05 



OUTINE MS3 

T <«00 

AT (///,* 

RN 



r# 



Program section 




Example 2-1. Sample Job 
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SCOPE 2 uses the station and terminal identifier to route output from the job back to 
the originating station and terminal. The fabricated job name (without the appended 
station and terminal identifier) appears on all of the printer and punch output returned 
for a job. 



OPTIONAL JOB IDENTIFICATION STATEMENT PARAMETERS 

The job name is the only information required on the job identification statement. You 
can optionally supply additional information. When supplying parameters, separate each 
parameter with a comma and terminate the parameter list with either a period or a 
right parenthesis. Comments can follow the terminator. The sequence in which para- 
meters are listed is unimportant. 

If you supply no other information, the SCOPE 2 system uses default parameters for the 
job. Default values and the maximum values allowed for these parameters are deter- 
mined by the installation manager at the time SCOPE 2 is installed in the computer 
system. The values may vary from site to site. Generally, a system analyst can tell 
you the values at your site. Record the default and maximum values for your site in 
the table on the inside back cover of this guide. 



The following parameters are allowed. 
CP70 or CP76 



Tn 



Pn 



CMn 



Processor code for 6000/CYBER 70 Station, 
is described in the following text. 



This parameter 



CPU time limit in octal. This parameter is described on 



pag< 



Processing priority in octal, 
on page 2-5. 



This parameter is described 



Fixed number of words of small core memory allocated for 
the job. This parameter is not usually specified since it 
overrides dynamic memory management. The parameter is 
described with Using Core Memory, Section 4, page 4-3. 



Dym 

Rn 
MTn 



x* ixea numoer oi woras \expressea in octal tnousands; oi large 
core memory allocated for the job. This parameter is not 
usually specified since it overrides dynamic memory manage- 
ment. The parameter is described with Using Core Memory, 
Section 4, page 4-6. 

Job dependency string parameter. This parameter is des- 
cribed with the TRANSF control statement with which it is 
used (see page 4-12). 

Job rerun limit. This parameter is described in Section 4, 
page 4-13. 

Octal number of on-line 7-track magnetic tape units used 
by the job. This parameter is described with the magnetic 
tape REQUEST statement with which it is used (see Using 
On-Line Tapes, Section 6, page 6-13). 
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NTn Octal number of on-line 9-track magnetic tape units used by 

the job. This parameter is described with the magnetic 
tape REQUEST statement with which it is used (see Using 
On-Line Tapes, Section 6, page 6-13). 

6000/CYBER 70 STATION PROCESSOR CODE 

The CP parameter is relevant for jobs entered through a 6000/CYBER 70 station. If 
the parameter is used for a job submitted through some other type of station, the para- 
meter is ignored. 

When a job is entered through the 6000/CYBER 70 station, the 6000 SCOPE operating 
system must determine from the job identification statement which central processor is 
to process your job. When the parameter is omitted, 6000 SCOPE uses the system 
default, which is most commonly set for processing at the 6000 Series Computer System 
rather than the 7600 Computer System. 

7600 Processing 

Use CP70 to unconditionally specify processing at the 7600 (or CYBER 70/Model 76). 
If the 7600 is not currently communicating with the 6000 Series station, the job waits 
indefinitely for communication to be established. For this publication, use of CP70 is 
conventional. 

The following job identification statement allows the job to be processed onlv at the 
7600 Computer System. J 



( / JOB,CP70. 
7600 or 6000 Processing 

Use CP76 to specify processing at the 7600 as a first choice but at the 6000/CYBER 70 
station if the 7600 is not currently linked to the 6000 station. It is not used for load 
leveling. That is, the size of the job queues for the two systems is not a factor in 
assigning a processor. 

The following job identification statement requests that the job be processed at the 7600 
if it is available; otherwise, it is to be processed at the 6000 station. 

| / JOBNAME,CP76. 

EXECUTION TIME LIMIT 

For each job in the system, SCOPE 2 monitors the amount of time that programs for 
the job occupy the central processor unit (CPU). This time does not include the time 
spent in the input queue, staging files, waiting for access to the CPU, or waiting for 
completion of I/O requests. When SCOPE detects that the execution time has expired, 
it terminates job processing. The default time limit is usually 8 seconds. If the 
system default time limit is insufficient for your job, supply the T parameter on your 
job identification statement. You should also set a time limit if you feel that the default 
is too high. 
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The time is expressed in seconds as an octal value prefixed by the letter T. You can 
either calculate the octal value or you can use the following rule to arrive at an approx- 
imation of the octal value. 

Rule: The time in octal seconds equals the approximate time in minutes multiplied 

by 100. Note, however, that a decimal value of 8 or more must be converted 
to the octal equivalent. 

seCo = 100 x min 

For example, if your job requires 4 minutes of CPU time, you would convert this time 
to 400 octal seconds for use on the job identification statement. Enter the value as 
T400. For 9 minutes, you would enter T1100, having converted the 9 to its octal 
equivalent. 

The following job identification statement sets the time limit for the job to approximately 
9 minutes. 



BIGJOB,CP70,T1100. 



If a job contains an EXIT statement, and the job abnormally terminates because of 
having used its time, SCOPE 2 extends the limit by 8 seconds to permit you to obtain 
a dump or save valuable data. 

To be certain that your job will have access to the CPU until it has completed processing, 
regardless of the requested time limit, set the execution time parameter to T7777. This 
special value acts as an infinite time limit. It also represents the maximum possible 
value for the T parameter. 

CAUTION 

Use caution when setting high or infinite time 
limits. If your job contains an error such as 
an infinite loop, the program will continue to 
execute and you will be charged for the time 
used. 

JOB PRIORITY 

The P parameter is rarely specified. Default priority is adequate for most applications. 
A job with very high resource requirements, however, will sometimes warrant an in- 
crease in processing priority (for example, if it uses all the on-line units, requires a 
large amount of CPU time, uses a large percentage of LCM, or is heavily I/O bound). 

To override the default priority specify the letter P followed by 1 to 4 octal digits. 
The highest priority a user can assign is set by an installation parameter (usually 7000 R ). 
The priority assigned causes the job to be processed ahead of all jobs having lower 
priorities. 

The lowest priority that can be assigned and still have the job processed is 1. Any 
value between 1 and 777„ is automatically reassigned to 1000„. If the priority is 0, 
the job will not be processed until the operator assigns a valid priority. 
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On the following job identification statement, the priority is set to 2000 



SWIFTY, CP70, P2000. 



CONTROL STATEMENT SECTION 

All control statements applying to a job must be in the control statement section, which 
is always the first section in the deck. Control statements cannot appear in any other 
part of the job deck. They are processed one at a time and determine all operations 
performed on subsequent sections of the job deck. 

The control statement section consists of the following kinds of statements. 

• SCOPE 2 control statements 

• Loader control statements 

• Record manager control statements 

These statements serve the following purposes. 

• Identify the job and some of its characteristics 

Request devices needed for job processing and specify other file-related activities 

Call for compilation or assembly of the source language program 

Direct the loading of programs into small core memory and loading of data into 
large core memory 

• Call for execution of the object program resulting from compilation or assembly 

• Specify exit paths and job termination conditions 

All statements must be prepared observing the following syntax rules for control state- 
ments. 

1. Each statement must consist of a 1- to 7-character statement name and a termi- 
nator, or must consist of a name followed by a separator, a parameter list, and 
a terminator. 

2. The terminator can be either a period or a right parenthesis. 



name. 



or 



name) 



3. The separator following the statement name is conventionally a comma or a left 
parenthesis. However, one or more blanks following the statement name are 
also interpreted as a separator; elsewhere, blanks are ignored. 



name(parameters) or [name, parameters. 



or 



name parameters, 



4. The parameter list consists of one or more fields of information separated bv 
commas. 



name( Pl ,p 2 p n > or name, p^ p 2 , . . . , ?n or | name p r p 2 , . . . , p 
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Parameters in the list are often in keyword form, that is, each p. could be 
expressed as x = y or x = y-./y 2 /.../y • Thus, commas, equal signs, and 
slant bars are conventional delimiters in parameter lists. 

5. Literals permit any of the characters otherwise illegal or interpreted as separa- 
tors to be used in the parameter list. Blanks within a parameter are deleted 
except within a literal. A literal is any character string delimited by a pair 

of dollar signs. Two consecutive dollar signs within a literal constitute a single 
dollar sign. That is, the literal $ab$$cd$ is interpreted as ab$cd. 

6. Any characters can follow the control statement terminator. This allows the 
remainder of the line to be used for comments. 



name, comments or \. name(parameters)comments 



7. Continuation cards are allowed for statements too long for a single card. To 
continue a statement, the card containing the statement to be continued must 
end with a ( , / or =. It must not contain a terminator. The continuation card 
must have a nonblank character in column 1. Comments cannot be continued 
because they follow a terminator. 



more parameters)comments 



/name (parameters, 

i 
It is not unusual for a program called by a control statement to require a secondary kind 
of control statement known as a directive. Directives for a program can be in the job 
deck in a separate section from control statements, or they can be on some other file. 
In SCOPE 2, the system routines LIBEDT, TRAP, ANALYZE, and UPDATE each has its 
own set of directives. The syntax of these directives is tailored to the needs of each 
program. 

Each control statement is referred to as a job step. After the operation requested by 
the statement has occurred, SCOPE advances to processing the next control statement, 
that is, performing the next step in your job. 

Sections following the SCOPE control statement section consist of source language decks, 
binary object decks, data, and directives required by specific job steps. If no job step 
requires input from the job deck, the deck consists of only the control statement section. 

Example 2-1 represents the typical case in which the first job step that requires input 
from the job deck is the FORTRAN Extended compiler (called by the name FTN). Thus, 
the FORTRAN language program is the second section in the deck. The next job step 
requiring input from the job deck is the object program. Its execution is called for by 
the control statement LGO. Therefore, data for this program forms the third and final 
section. 
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SEPARATOR CARDS 

Cards with certain unique patterns define the structure of a deck and separate decks in 
the card reader. ^ 

END-OF-SECTION CARD 

Terminate each section with an end-of-section card (Figure 2-1). This card has rows 
7. 8, and 9 punched in column 1. Columns 2 and 3 optionally contain the ^Hollerith punch 
n r scnpV C p d h S t °.° throU g\ 16 - These are section level numbers. TheyJ^tor*^ 
E S as"°eL E -oVrto h r a d Ve ca S rd g r iCanCe ^ '^ ''*' End -° f — tion cards^re often referred 



^Hollerith Punched Octal Level Number 



/ 



00 

irzz 



Hi I! I? :J 14 li 15 



ii H 25 It ?7 28 



)6 11 31 ii ii> 4 , 4.; 4i~44 ii'<i"ifinnj •ti'it i) ■i j"~£ bS y, sa i s 'to] 



|S- «1 61 M »b Sill 8» ij 7» 71 7? 75 74 7S Tt 77 It 7l' aol 
.- ' ! 14 - 1. . I - , I , « , , „ , „ „ „ „ „ „ fl « „ 4 , „ M s; „ SJ „ „ H s , s , „ „ ,, „ H B „ „ „ „ „ „ „ n „ H 

,,,,MM,ni,,,,,,n,Mn,M,, " M "«MMmiiiniMiimimiimiimiiiniiii 

tH,?' ■H^'^n 2 ^^H^^^^ 2 ^^ 222 - 2222222 ^ 2 2222222222222222222 2 222 2 222222222 

J i t o , ., . , „ , 3 , J ., „ „ 3 , 3 3 * 3 ti o j 3 i 3 j 3 3 o 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 

f * ? * ? f 1 - t 2 * *, ?. .1 * J * * ,* S * * ,* * ,t f * J * * f. ?. *-**** 4 444*44444444 444444 44444444444444 4444444444 

■IJ777777771/777J17.7IJ77I777/7777777777777J77?77J77T?7IT7T7T?7II7IIIJI?7I77777I 

!!!!!! 8 ! 3 !^;^^!u!M; S ; 8 !^ i !? 3538S8838B " 888fi8 88^8B8a888e 38 8G fi 8IU883 8 888 g 88 S 
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50B4 



Figure 2-1. End-Of-Section Card (EOS) 
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END-OF-PARTITION CARD 

Terminate a formatted binary deck (core image or object module) with a single end-of- 
partition card or two end-of-section cards. The end-of-partition card (Figure 2-2) has 
rows 7, 8, and 9 punched in column 1 and has the Hollerith punch for octal code 17 in 
columns 2 and 3. This card is equivalent to the 7600 SCOPE 1. 1 end-of-file card 
(multipunch 6/7/9). As will be shown later, FORTRAN and COBOL object-time routines 
also recognize the EOP separator. In previous 6000 SCOPE systems, the end-of-infor- 
mation card is referred to as an end-of-file card. 

-Hollerith Punched Octal Level Number 



(7 
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Figure 2-2. End-Of- Partition Card (EOP) 



Terminate the last section of the job deck with an end-of-information (EOI) card. This 
must be the only EOI card in your deck. The end-of-information card (Figure 2-3) has 
rows 6, 7, 8, and 9 punched in column 1. Some programmers make a practice of 
including an EOS card before the EOI card. This practice is unnecessary since the EOI 
serves to terminate the last section and the job deck. 
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Figure 2-3. End-Of-Information Card (EOI) 



EXAMPLES 



CONTROL STATEMENT SECTION 

In the simplest case, a job consists of only one section, the control statement section. 
This happens when no job step requires card input with the job deck. 

Example 2-2 illustrates a job that consists of only the one section. 



^6/7/8/9 



f 



EOI CARD 



f 



J0BNAME.CP70. 




CONTROL STATEMENTS 
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Example 2-2. Job Containing Control Statements Only 
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COMPILE SOURCE LANGUAGE PROGRAM 

A job consists of more than one section if one or more of the programs called by the 
control statements, that is, job steps, requires card input from the" job deck. 

Usually, a program requiring input submitted as cards looks for these cards as the next 

section in the job deck. Thus, if a compiler is the first program executed, it seeks 

the source language program deck in the section immediately following the control state- 
ments. 



Example 2-3 illustrates a job that calls for compilation of a FORTRAN source language 
program. 




EOI CARO 



SOURCE LANGUAGE PROGRAM 
(SECOND SECTION) 



EOS CARD 



CONTROL STATEMENTS 
(FIRST SECTION) 
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Example 2-3. Job With Source Language Program 
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COMPILE AND EXECUTE 

Typically, execution of the program compiled by the compiler is called for following the 
compilation. In this example, execution is requested through the LGO statement. LGO 
is a file on which all the compilers and assemblers place object programs unless some 
other file is specified. This statement is described in detail under File Name Calls. 
If this object program requires data, it is the next section after the source language' 
section, as shown in Example 2-4. Again, each section other than the last terminates 
with an EOS card and the final section terminates with an EOI card. Notice that the 
deck illustrated in Example 2-4 parallels the job illustrated in Example 2-1. That is, 
it contains three sections, the control statement section, the source language section, ' 
and the data section. 
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EOI CARD 



DATA SECTION 
(THIRD SECTION) 



EOS CARD 



2£ 



7/8/9 
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/LGO. 



FTN. 



\I0BNAME,CP70. 



SOURCE LANGUAGE 
PROGRAM 
(SECOND SECTION) 

EOS CARD 
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CONTROL STATEMENTS 
(FIRST SECTION) 
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Example 2-4. Job With Source Language Program and Data 
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TWO COMPILATIONS WITH COMBINED EXECUTION OF THE OBJECT PROGRAMS 

Very elaborate jobs are possible, such as those that include compilation and execution 
of more than one program. Example 2-5 illustrates a job containing two FORTRAN 
programs. Both calls to the compiler write the object programs on a file named LGO, 
The object programs are loaded and executed as a single program through use of the 
LGO control statement. 




EOI CARD 



DATA 



EOS CARD 



FORTRAN SOURCE 
PROGRAM TWO 



EOS CARD 



FORTRAN SOURCE 
PROGRAM ONE 



EOS CARD 



— I /■ CONTROL STATEMENTS 
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Example 2-5. Job With Two Compiler Language Programs 
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COMPLEX DATA STRUCTURE 

The data in the job deck need not be confined to a single section or partition It depends 
entirely on what the program is doing. Example 2-6 illustrates a job deck containing 
three partitions of data. In this example, the data is divided into partitions rather than 
sections because the FORTRAN object program considers an EOS equivalent to EOP 



EOI CARD 

DATA PARTITION THREE 
- EOP CARD 

DATA PARTITION TWO 
EOP CARD 

DATA PARTITION ONE 
EOS CARD 

FORTRAN SOURCE PROGRAM 
EOS CARD 




CONTROL STATEMENT 
SECTION 
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Example 2-6. Job With Complex Data Structure 
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JOB STEP TERMINATION 

Example 2-7 illustrates a program consisting of a compilation (FTN statement) and 
execution of the compiled program (LGO statement). If the compiled program terminates 
before it has read the last data card, the next-card pointer is advanced to the beginning 
of the next section. In this example, the EXIT statement causes job processing to re- 
sume with the second LGO statement calling for re- execution of the compiled program. 
This time, the program begins reading at the beginning of the second data section. The 
FORTRAN and COBOL compilers generate instructions in the compiled programs that 
cause this automatic advancement of the next-card pointer. If your job aborts before the 
compiled program reads any of the data cards, this automatic advancement of the next- 
card pointer does not take place. The pointer is positioned at the beginning of the first 
data section. 



POINTER MOVED 
TO HERE 




EOI CARD 

DATA SECTION TWO 
EOS OR EOP CARD 

DATA SECTION ONE 
TERMINATION OCCURS HERE 
EOS CARD 

FORTRAN SOURCE PROGRAM 
EOS CARD 



CONTROL STATEMENTS 
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Example 2-7. Job Step Termination 



60372600 A 



2-15 



JOB PROCESSING 



This section describes the most common steps in a job and gives further information on 
the principles and techniques involved in loading and executing programs. 

COMPILING OR ASSEMBLING PROGRAMS 

The most common first step in job processing is translation of the source language 
program into an object program, that is, into machine language. This occurs through 
compilation if the source language program is written in a compiler language such as 
FORTRAN or COBOL, or by assembly if it is written in the COMPASS assembly 
language. 

The request for compilation or assembly is a request for SCOPE to load the compiler 
into small core memory and execute the compiler program. The compiler translates 
the source language program into machine language. Table 3-1 shows the requests 
needed to compile or assemble programs written in the languages available with the 
SCOPE 2 Operating System. Such requests often resemble the name of the compiler 
or assembler called. 



TATST.P 1 3-1 



Language Used for 
Source Program 


Request Issued for 
Compilation /Assembly 


FORTRAN Extended 
FORTRAN (RUN) 
COBOL 
COMPASS 


FTN. 
RUN(S) 
COBOL. 
COMPASS. 



The arrow in Example 3-1 points to the request statement that results in the load and 
execution of the FORTRAN Extended compiler. 




Example 3-1. Request for FORTRAN Extended Compilation 
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For a job that contains both a COMPASS language program and a compiler language 
program, the requests and deck arrangements required for compilation and assembly- 
vary. They depend on the language used and the order in which the programs are to 
be assembled and compiled, as well as other factors. 

As you become more familiar with the compiler or assembler language, you will want 
to take advantage of the several programming options available on the compiler or 
assembler request statement. These options have a direct effect on the compilation or 
assembly. 

Some options provide different kinds of program listings, others allow you to specify 
different files for input and output. All such options are described in detail in the 
reference manuals for each language. The most commonly used options are listed in 
Table 3-2. 

The codes used for the options vary according to the language used. Options are listed 
after the word (for example, RUN, FTN, COMPASS, COBOL) that calls the compiler or 
assembler. The options can be in any order. The first option is preceded by a comma 
or left parenthesis; the last option is followed by a period or right parenthesis. All 
other options are separated by commas. 

Analyze Table 3-2 to see what happens when all optional parameters are omitted. For 
COBOL, COMPASS, or FORTRAN Extended, your program will be read from the job 
deck and translated into a machine language object program written on a file named 
LGO. A listing of your source program and any errors that may have occurred during 
assembly or compilation will be written on the OUTPUT file and automatically printed. 
For FORTRAN RUN, parameters are required to produce the above results; a RUN 
statement with no parameters results in compilation and execution without a source 
listing. 

Example 3-2 illustrates a COBOL request statement that calls for the binary output 
from compilation to be suppressed, for the source language program to be on a staged 
tape named MYTAPE, and a source library to be on a permanent file named SRCLIB. 
Use of staged magnetic tapes is described in detail in Section 6; attaching of permanent 
files is described in Section 8. 




Example 3-2. Request for COBOL Compilation With Options Specified 
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TABLE 3-2. OPTIONS AVAILABLE DURING COMPILATION /ASSEMBLY 



O tion 


COBOL 


i 
COMPASS 


FORTRAN RUN 1 "* 


FORTRAN 
Extended 


Takes program from INPUT 
file 


omitted 
or 
I 

or 
I + INPUT 


omitted 
or 

I = INPUT 


omitted 

or 

I = INPUT 


omitted 
or 
I 

or 
I = INPUT 


Takes program from file 
named Ifn. t 


I = Ifn 

or 

INPUT = Ifn 


I = Ifn 


I = Ifn 


I = Ifn 

or 

INPUT = Ifn 


Translates source program 
into object (binary) program 
and writes it on LGO in 
preparation for loading and 
execution. Also produces 
normal listing of source 
decks. 


omitted 

or 

B 

or 
B = LGO 

or 

L 


omitted 
or 

B 
or 

L 


S 


omitted 

or 

B 

or 
B = LGO 

or 

L 


Translates source program 
into object (binary) program 
and writes it on file Ifn in 
preparation for loading and 
execution. Also produces 
normal listing of source 
decks. 


B = Ifn 


B = Ifn 


B = Ifn 


B = Ifn 


Punches binary cards of 
object programs. 


B = PUNCHB 


B = PUNCHB 


B = PUNCHB 


B = PUNCHB 


Compiles and executes 






G 

or all optional 

parameters 

omitted 


G 



t 

ft 



Ifn = logical file name, 1 to 7 characters, first character must be alphabetic 



FORTRAN RUN also recognizes an oraer 

missing optional parameters are indicated by commas. 



T3TTTVT <-.+ »+< 
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LOADING AND EXECUTING PROGRAMS 

The request to load and execute a program can be very simple, requiring the use of a 
single load and execute statement, or can be very complex, involving the use of an 
elaborate sequence of control statements called a loader control statement sequence. 

COMBINED LOAD AND EXECUTE REQUEST 

The LGO Statement 

After the program has been compiled or assembled, the most direct way to load the 
object program into small core memory and have it executed is with a simple one- 
statement request. If your request for compilation or assembly does not explicitly 
name a binary output file, your program is written on a file named LGO. In this case, 
you can use the following file name statement for loading and execution. 



LGO. 



Literally, this request tells the computer "load and go", 
points to the LGO statement. 



In Example 3-3 the arrow 




Example 3-3. LGO File Name Statement 

The loader always rewinds LGO before loading from it. If more than one compiler or 
assembler writes on LGO before execution is called for, the output from both the lan- 
guage processors is loaded and executed as a single program. 

The compiler options permit you to rename the load-and-go file. In this case the state- 
ment that calls for loading and execution must use the file name you designate. 
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In Example 3-4, the load-and-go file is renamed 
calls for load-and-go of the compiled program. 



XXX on the FTN statement. XXX 




Example 3-4. Renaming the Load-And-Go File 

Substituting File Names at Execution Time 

Usually, the file names you supply on the PROGRAM statement are the names used for 
the files at execution time. You can, however, change these names when you execute 
the program by supplying parameters on the LGO statement. 

If no parameter is specified on the load-and-go statement, the file names are the same 
as those in the PROGRAM statement. 

In Example 3-5, the program uses files INPUT, OUTPUT, TAPE1, and TAPE2. 



r G6NTR0LQAm 



FORTRAN CODING FORM 



J08,C|P|70. 
FTN, 



File definition 
statements 



LGO. 

7y8/9 \ik column one. 

PROGRAM TEST ( 



INPUT, OITP 



IT,T/»PE1,T 



APE2,T/5PE3 = TAPEi) 



Example 3-5. No Substitution of File Names on LGO 
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File names specified on the load-and-go statement replace the names on the PROGRAM 
statement in a one-to-one relationship. 

In Example 3-6 the program still uses files INPUT and OUTPUT. However, files 
TAPE1 and TAPE2 have been replaced by the files named DATA and ANSW, respectively. 
TAPE3 which was equated to TAPE1 is also replaced by DATA. Any reference to TAPE1 
or TAPE3 in the program is actually a reference to DATA. Any reference to TAPE2 is 
actually a reference to ANSW. 




Example 3-6. Substitution of File Names on LGO 



If the file name on the load-and-go statement specifies a file that has been equated on 
your PROGRAM statement, the equate on the PROGRAM statement takes precedence. 
That is, the redefinition is ignored. 

Note that in Example 3-7, DATA refers to the PROGRAM parameter TAPEl=OUTPUT. 
Because TAPE1 has already been equated to OUTPUT, the redefinition to DATA is 
ignored. Any reference to TAPE1 in the program is actually a reference to OUTPUT. 




Example 3-7. Precedence of Equating File Names 
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Loading from INPUT 

If you have on hand the punched deck of an object program, you can load and execute 
the program from the job deck. This requires an INPUT statement, as follows: 



INPUT. 



When load is from INPUT, the loader does not rewind the file before loading from it. 
That is, the job deck pointer is not set to the beginning of the deck. Terminate the 
punched deck with an EOP card or two EOS cards. If the deck is at the end of the job 
deck, however, the EOI is sufficient. 

Example 3-8 illustrates placement of a punched deck (sometimes referred to as a SCOPE 
binary deck, an object module, or a relocatable binary deck) in the job deck. 



'6/7/8/9 



c 



7/8/9 



EOI CARD 



OBJECT MODULE 



EOS CARD 



/INPUT. 
/J0BNAME.CP70. 
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Example 3-8. Loading From INPUT 



Name Call Statement 



The LGO and INPUT statements, as well as the compiler and assembler request state- 
ments, are examples of a special type of loader statement called the name call statement, 
Indeed, many of the statements you will be using in the control statement section are 
actually name call statements. That is, they are statements that summon the loader to 
load a program in your SCM and LCM fields and then execute it. Keyword statements, 
by contrast, request the system to perform some specific action without requiring a 
program to be loaded into the user SCM or LCM field. The system recognizes the 
SCOPE and loader keyword statements given in Table 3-3. 
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TABLE 3-3. KEYWORD STATEMENTS 



SCOPE Keyword Statements 



ACCOUNT 

ALTER 

ATTACH 

AUDIT 

CATALOG 

COMMENT 

DISPOSE 

DMP 

DMPJSL 

DMPJT 

DMPLC 

DUMPF 

EXIT 

EXTEND 

FILE 

LABEL 

LIBRARY 

LIMIT 

LOADPF 



MAP 

MODE 

PASSWRD 

PAUSE 

PURGE 

REDUCE 

REQUEST 

RFL 

RTRVSIF 

SATISFY 

SEGLOAD 

STAGE 

SUMMARY 

SWITCH 

SYSLIBE 

TRANSF 

VSN 



Loader Keyword Statements 



EXECUTE 

LDSET 

LIBLOAD 

LOAD 

NOGO 

SLOAD 



Any other control statement is a name call statement. The distinction is made between 
these statements and name call statements because no name call statement can be the 
same as one of these keywords. In interpreting a control statement, the system first 
determines whether the control statement is one of the keywords. If it is, it performs 

ln e STl S M d a t 10n \ + If the statement is not a keyword statement, the system^heckT 
to see whether the statement is a name call statement. If the statement is not recog- 
nized as either a keyword statement or a name call statement, a control statement error 

UC \-r LI X o • 

Name call statements divide into two classes: file name calls, of which LGO and INPUT 
are examples; and entry point calls, of which FTN, RUN, COBOL, and COMPASS are 

6XcLXIj.pl GS • 



File Name Statement 

This statement consists of the name of a file that contains an object program 
name is optionally followed by parameters used by the program to be loaded. ' 



The file 



lfn(p 1 ,p 



2 ,p 3 ,.. . 



P ) 
*n 



T T rM' a 7 pr0g + ra f that resides on a file used by your job can be loaded into SCM and 
LCM and executed simply by referring to the name of the file. 

T u e !°!? er , rewinds the file before loading from it. An exception to this rule is INPUT 
which the loader does not rewind. Loading continues until the loader encounters EOI, ' 

fh at P 'formrp b rogra°m) to\l^adeT^ ^^ ^^ «** "' gr ° UpS ° f l0ader tableS 

In assigning a name to a file, there is nothing to prevent you from naming a file the 
t a ™ e + a vf ^ °k the . ke y w °rd statements. However, if you attempt to load and execute 
from the file by using a file name call, you will find that the statement is always inter- 
preted as a keyword statement. y 
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Example 3-9 illustrates a futile attempt to load from a file that has the same name as 
a keyword statement. In this case, the system interprets the FILE statement as a key- 
word statement, not as a name call statement. A file named FILE cannot be loaded_ in 
this way. The user receives an error message because the FILE statement is missing 
some required parameters. If the file had been given a name such as EXIT there would 
be no error indication. 



CONTROL DATA 



FORTRAN CODING FORM 



J0BSAH,CP7 




TN(8 
PILE. 

7/S/9 




4i column one. 

RCGlRAM ONE (I^PUT, CUTPU 

5 



I legal attempt to 
load and -execute 
from file named 
FILE 



Example 3-9. Illegal Keyword /Name Call Statement 



Entry Point Name Statement 

The locations at which execution can begin in a program are known as entry points. 
Compilers and assemblers form lists of available entry points when programs are 
compiled or assembled. These lists become significant when the programs are placed 
on system and user libraries because the user can name an entry point on a control 
statement and cause the program containing the entry point to be loaded and executed. 

The entry point name statement consists of the name of the entry point (eptname) option- 
ally followed by parameters to be passed to the loaded program. 



eptnameCp^, p 2 » Pg ; 



P ) 
*n 



In interpreting the statement, SCOPE 2 first determines that it is not a keyword state- 
ment by checking eptname against the list of keywords, and then that it is not a file 
name by checking it against the list of files known to the job. Failing to find it in 
these two lists, the system assumes that the name is an entry point and searches for 
it on the libraries known to the job. To be recognized as an entry point, the name must 
have been declared as an entry point in some program on a library. If no library lists 
the name as an entry point, the system issues a control statement error. 

All of the standard product set members (COMPASS, FTN, RUN, COBOL, etc.) and 
many of the SCOPE control statements (COPY, REWIND CONTENT, etc. ) fall in the 
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classification of entry point name statements. These programs are listed as entry 
the SCOPE 2 system nU ° leUS Ubrary " They were P laced there durin g installation of 

Remember that file name calls take precedence over entry-point name statements. 
Thus if you name a file FTN and then attempt to call the FTN compiler, the loader 
the lfbw Pt t0 l0ad fr ° m a flle named FTN lnStead ° f loadin g the F ™ compiler from 

For entry-point name calls, loading and execution can never be separate options and 
cannot involve other loader statements. P options and 

LOADING OF OBJECT MODULES 

The basic program unit produced by a compiler or assembler is an object module It 
consists of several loader tables that define blocks, their contents, and address reloca- 

ff l SIM ° b /i Ct m ° dUle " « ometimes refe - ed to as a relocatable subpro- 
gram. When object modules are on a file, they can be called for loading and execution 

po'in^names ""^ ' ^ *** *** ° U libraries > the ? can be called through enJry- 

In either case loading continues until an end-of-partition or double end-of-section is 
encountered. The load may consist of several modules separated by end-of-section 
delimiters Additional loading of modules is required if the loaded modules contaTn 
references to entry points in other subprograms. These are known as external refer- 
ences The process of locating and loading of modules containing the entry points is 

^ d X^f^^eJ he l0ad6r d ° eS "^ all ° W ™™ ™" £*« 

PR^r^i^PPnrn 3 "tEXF?™ consi u stin § of the four object modules PROGA, PROGB, 

XerSr ???'ntw° G H J" ° n the L , G ? filG P roduced as a ^sult of a compilation 
and assembly. The other modules are on libraries. Loading from libraries is des- 

nni 6d f n n great /K d6tail later in this secti on.) An LGO statement initiates the Toad se- 
quence followed by program execution after all the object modules have been loaded. 

deW^it COm T° f n b l° Ck i 8 , 10 ^ below the program block of the first module that 
Thi* inr wnJi 6 module 1S loaded immediately above the job communication area, 

lnis lOOg-word area is shown in Appendix B. 

CORE IMAGE MODULES AND HOW THEY ARE LOADED 

The core image module, also referred to as the loaded program or an absolute program 
is the contents of the SCM field and the LCM field produced by the load operation. 

When the core image module is copied onto a file, it is sometimes referred to as an 
overlay. A core image module on a file can be reloaded and executed at any time 
through a file name call. If the core image module is placed on a library, it can be 
called through an entry point name. 

Because a core image module is the product of an object module load sequence, all of 
its external references have been satisfied. No manipulation of data is necessary 
Loading is very swift and can consist of the one module only. 

A core image module is also known as a "binary machine language program" because 
it requires no processing whatsoever before execution. 
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RAS + RASFL 



RAS+ 100 



8 



RAS+0 



BLANK COMMON 



PR06D 



PROGC 



LABELED COMMON BLOCK 
(REFERENCED FIRST IN PROGC) 



PROGB 



PROGA 



LABELED COMMON BLOCK 
(REFERENCED FIRST IN PROGA) 



JOB COMMUNICATION AREA 



ANY OR ALL OF 
MODULES REFERENCE 
BLANK COMMON BLOCK. 
LARGEST DECLARATION 
IS USED FOR STORAGE 
ALLOCATION. 



PROGB REFERENCES 
ENTRY POINTS IN 
PROGC AND PR06D. 



I 



PROGA REFERENCES 
ENTRY POINTS IN 
PROGB. 
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Figure 3-1. Structure of Loaded Program 

LOADING AND EXECUTION AS SEPARATE OPERATIONS 

Suppose you want to load object modules from two different files and execute them as 
a single program. This is not possible using just the file name call. It becomes 
necessary to separate the load operation from the execute operation. 

Another reason for separating the load operation from execution is if you wish to obtain 
a load map, but do not wish to execute the program. 
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Load and Execute 

To illustrate how the load operation can be separated from execution, replace an LGO 
statement with the following two statements. 




These two statements combined perform the same action as the LGO statement alone. 

Load From Multiple Files and Then Execute 

You can tell the loader to load from more than one file either by specifying all the files 
to be loaded on one LOAD statement or by using several LOAD statements prior to the 
EXECUTE statement. 

The following are equivalent: either sequence causes files ALPHA, BETA, and GAMMA 
to be loaded and executed as a single program. Remember that the files must be local 
to the job. 




LOAO(ALPHA) 

LOA0(BETA,GAMHA) 

EXECUTE. 



Another alternative is to use LOAD to load from one or more files and then call for the 
final load and execution through a file name call. 
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Example 3-10 illustrates this technique. 



6/7/8/9 



^L 



r 7/8/9 



^7/8/9 



OBJECT MODULE TWO 



FORTRAN SOURCE DECK 




INPUT. 



LOAD(LGO) 



/jOB,CP70. 



OBJECT MODULE ONE 
IS ON FILE LGO 
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Example 3-10. Load From LGO and INPUT; Then Execute 



Load With No Execution 



If you want to load from a file but do not wish to immediately execute the program, 
replace the EXECUTE statement with a NOGO statement. 




The NOGO tells the loader that no more loads are to take place and that execut jon is 
not to occur. If a map is requested, the loader generates the map but does not execute 
the loaded program. 
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Using NQGO To Generate Core Image Modules 

In addition to using NOGO to inhibit program execution, NOGO can be used to write 

foLwfnfNOrn^ 111 , 011 ! f / ilC a f a Slngle C ° re image m ° dule ' To do this requires the 
following NOGO control statement. 



NOGO(lfn) 



The file name is required for this application. One application of this technique permits 
execution of programs that would otherwise exceed available LCM. The following se- 
quence illustrates this use. ioiiowing se 




Generate core image module 
Load core image and execute 



LOAD SEQUENCES 

The LOAD(LGO) statement followed by EXECUTE or NOGO is an example of a series of 
loader control statements known as a load sequence. Usually, a load sequence consists 
ol a series of loader control statements terminated by an EXECUTE a NOGO or a 
file name call. The entry point name call is a special case because the load 'sequence 
consists of the entry point name call only. Other loader control statements are LDSET 
LOAD, LIBLOAD, and SLOAD. ' 

^illustrated in Figure 3-2, load sequences are not interpreted in the same way as 

SCOPE keyword statements. The set of statements making up the loader sequence 

resembles a single job step. The system accumulates all of the statements in a load 
sequence. 

When the system encounters a terminating statement, the loader processes the entire 
sequence and satisfies any unsatisfied external references. 

Note that for compatibility with previous systems, three SCOPE control statements, DMP, 
MAJr', and KEDUCE are recognized within a load sequence. Any other SCOPE control 
statement or entry point statement such as RUN(S) or COMPASS is illegal inside a load 
sequence and causes job termination with the message lfn FILE UNKNOWN. 
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Thus, the following sequence is illegal: 



LDSET(PR£SE7=ZER0) 
RUN(S) 



7 



Begin load sequence 
Entry-point name illegal 
in loader sequence 



However, the following is legal: 




Begin load sequence 
File name completes 
loader sequence 



SELECTIVELY LOAD MODULES FROM FILES 

Suppose a file has a number of object or core image modules on it and you wish to 
selectively load one or more modules. A file name call cannot be used because that 
would load all of the modules nor can an entry point name call be used because the file 
is not in library format and cannot be declared as a library. Similarly, the LOAD state- 
ment does not apply because all the modules are on the same file, not separate files. 
The statement that is needed is the SLOAD loader control statement. 



SLOAD(lfn, modname. , modname ? , modname,, . . . , modname n ) 



SLOAD causes the loader to search the file for the modules named (modnames) by 
looking at the PRFX table that precedes each module. The PRFX table is a loader table 
created in all object modules and serves to identify the program to the loader. A 
module name is the program name assigned to the source program through the FORTRAN 
PROGRAM, SUBROUTINE, or FUNCTION statement; COBOL Identification Division; or 
COMPASS IDENT pseudo instruction. In addition to being the name of the program, 
this name is usually a primary entry point in the module. 

Each module is a section on the file. Loading terminates upon encountering the end-of- 
section, end-of-partition, or end-of-information. 

Remember that for execution to occur, you must complete the load sequence with 
EXECUTE or a file-name call. Also, since only selected modules are loaded from the 
file, references usually linked with the remaining modules will have to be satisfied from 
libraries. 
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Example 3-11 illustrates a load sequence that uses SLOAD to load modules ABLE, 
FRANK, and XRAY (in the sequence encountered on the file) from a file named PROGS. 
The file may contain many programs in addition to those to be loaded. 



CONTROL DATA 



JOB,CP70. 



SLO AD <PRGGS,XRAY, ABLE, FRAN 
EXECUTE. 



"} 



Single load sequence 



Example 3-11. Selective Load From a File by Program Name 

SETTING LOAD SEQUENCE CHARACTERISTICS 

The LDSET loader control statement is a general-purpose statement that allows you to 
set a number of characteristics for a specific load sequence. It has the following form: 



[LDSET (option., option,,, option.,, . . . , option ) 

Each option consists of a key which may or may not be equated to a parameter, 
can use LDSET statements anywhere in the load sequence. 



You 



+v> Q <wn« 



l-KJl-HJ VV lilt 



ERR=level 



LIB^fnj/lfng/.. 



MAP=p/lfn 



Determines level (ALL, FATAL, or NONE) of error for 
which loader aborts load and does not initiate execution. 
The option is described under Setting Loader Error Condi- 
tions, page 12-8. The default is for FATAL errors to result 
in job termination. 

/lfn Specifies list of library files to be searched when satisfying 
externals. This .is described under Using Libraries, page 
3-21. The default is that the system library declared during 
compilation. 

Specifies degree of load map produced and file on which map 
is to be written. This is described under Requesting Load 
Maps, page 12-17. The default map is determined by an instal- 
lation or a MAP statement. The default file name is 
OUTPUT. 
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PRESET =value Specifies that user SCM and LCM fields are to be preset to 

the indicated value. The default is for no presetting to occur, 
The option is described under Presetting Core Memory, 
page 4-8. 

REWIND and NOREWIN Specifies file positioning prior to load. Default is REWIND. 

This option is described under Rewinding of Load Files, 
page 4-15. 

Example 3-12 illustrates a load sequence that contains two LDSET statements. The 
first statement requests core to be preset to zeros and a partial map on file XXX. The 
second requests NOREWIN, and for libraries RUNLIB and COBLIB to be used for satis- 
fying externals. 




JOB,CP70, 



LDSET ( MAP=E/ XXX, PRESET =ZE R0> 

LOAD(HYFILE) 

LDSET ( NOREWIN, LI B=RUNL IB/ COEL IE) 

LOAC(A) 

EXECUTE. 



Single load sequence 




Example 3-12. Using LDSET Statements in Load Sequence 

USING LIBRARIES 

Several times we have alluded to the use of libraries as the source of object modules 
and core image modules to be loaded. Now let us consider what libraries are and how 
you determine which libraries are searched. 

DEFINITION OF LIBRARY 

A library is a collection of core image modules and /or object modules that can be 
efficiently accessed by the loader through a directory. Libraries are generated using 
the LIBEDT program. Libraries can be either system libraries or user libraries. 
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System Libraries 

When the operating system was installed, several system libraries were placed on mass 
storage as permanent files. (A system library need not be attached to be used; it is 
not a permanent file in the usual sense. ) The names of these libraries are maintained 
in a system library table. Often, the programmer will make use of these libraries 
without being aware of it. This is because the compilers all make external references 
to modules on system libraries. When the loader loads the object program, it knows to 
search the proper system library through a library declaration that the compiler inserted 
into the object program. As a result, object time programs for FORTRAN RUN declare 
libraries named RUNLIB and FORTRAN. Object programs for FORTRAN Extended 
declare the library named FORTRAN. COBOL object programs declare the COBLIB 
library. Generally a systems analyst can tell you the names of system libraries at your 
site. 

The NUCLEUS Library 

One system library file, the NUCLEUS, contains most of the operating system and pro- 
duct set members. The NUCLEUS library contains only core image modules. It con- 
tains no object modules and cannot be searched to satisfy externals. The contents of 
NUCLEUS are determined when the operating system is installed. 

User Libraries 

The user can create libraries, and direct the loader to satisfy externals from them 
instead of or in addition to the system libraries. A user library must be an input file 
for the ">ob* it cannot be a magnetic ta^e file» 

LIBRARY SETS 

A library set is the list of libraries to be searched for entry point names and for satis- 
fying externals. The user can declare that a library set be used for all subsequent loads 
in the job until further notice is given to the loader. This is called a global library set. 
The user can slso declare a second, temporary library set, that is, a list of libraries 
to be used for a single load sequence in addition to the global set. This is called the 

lnpol lihrarv ao+ Tn <=>i + Vi pi r» pasp a lihrarv q<=>+ r*mr\ nnnsiot r>f hnth QVQ+<=>m onH nQor" 

libraries, but the number of user libraries is limited to five. The maximum size of a 
library set is ten libraries. NUCLEUS is not considered as part of a library set. 

The Search For Entry Point Names 



As previously note, the loader searches the library set for entry point names when the 
loader request consists of an entry point name. The search takes place after the system 
has eliminated the possibility that the name is either a keyword statement or a file name. 
The library sets are searched in the following order. 

The global library set, if any 
The local library set, if any 
The NUCLEUS library 

The Search For Externals 

When the loader is attempting to satisfy external references encountered during an object 
module load, it searches library sets in the following order. 
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The global library set, if any 

The local library set: The local library set automatically includes as a minimum 
the system library referenced by the compiler used. The RUN c o moil er refer- 
ences RUNLIB and FORTRAN, the FTN compiler references FORTRAN, the 
FTN compiler references FORTRAN, the COBOL compiler .references COBLIB 



NUCLEUS is not searched, 
satisfying externals. 



It contains core image modules only and cannot be used for 



The loader does not attempt to satisfy externals until it encounters an EXECUTE NOGO 
or file name call in the load sequence. This is sometimes called load completion 

Defining the Global Library Set 

With a LIBRARY statement, you can define your global library set, declare a new global 
set or add to an existing global library set. Place the statement in your SCOPE control 

LIBRTRV S .t Pr t 10r t0 + thG l0 + ad ^ S ^ uences in whi <* you want to use the libraries The 
LIBRARY statement is not a loader control statement and must not occur in a load se- 

fo'nowLgTorm^ ' **"*** L ° AD "* EXECUTE >' The LIBRARY statement hL the 



rXIBRARYdibnamej, libname 2 , libname 3 , . . . , libname ) 



™t i 7 t are searched in the order listed. If a user library (local file) and a 

system library have the same name, the system library takes precedence. Ten libraries 
can be specified with a maximum of five of them being user libraries It is oossible to 
completely nullify a previous set and declare an empty set by using the LIBRARY state 
ment with no parameters. B IulnI state 

Example 3-13 illustrates a job that creates user library, LIB. The LIBRARY statement 
:u1o e m:«caTl y e ™te G red1n 1 thfl d ocaAibt e ; y P s r e e t: edenCe ^ F ° RTRAN ' ^ S * St ™ "^ 




Generates directive 
causing FORTRAN to 
be searched as a 
local library 



Statements 
defining LIB 



3 



ares LIB as 
lobal library 



Loader searches 
global library LIB 
and local library 
named FORTRAN 



Example 3-13. Defining Global Library 
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To retain a previous set as part of a new set, use an asterisk in place of a library 
name to indicate the point in the new list at which the previous global library set is to 
be inserted. 

In Example 3-14, the first LIBRARY statement defines the global set as consisting of 
system library FORTRAN and user libraries A and B. After execution of the deck on 
INPUT, the second LIBRARY statement defines the global set as consisting of system 
library FORTRAN; user libraries A, B, C, and D; and system library COBLIB. 



CONTROL DATA 



J08,GP70. 
ATTACH(A,A,ID=A) 
ATTACH(8,B,ID=8> 
LIBRARY (FORTRAN, A, 8) 
INPUT. 
Ll'BRARY(»,C,n,C"i3LI ">> 

LOAD(TNPMT) 
INPUT. 

1/S/9 in cjotumi one 

(BINARY DECK ONE) 
7/1/9 ItMtt 11 

(BINARY DECK TWO 
7/S/9 U\JU 11 

(BINARY DECK THREE) 
6/7/119 in cjobmn one. 



Example 3-14. Combining New and Old Library Sets 

Defining The Local Library Set 

Use the LIB option on the LDSET loader control statement to declare a library local to 
the load sequence. Place the LDSET statement inside the load sequence for which the 
library is to be used. The LDSET statement is a loader control statement and either 
initiates or continues a load sequence. 



LDSET (LIB =libname i /libname /libname /libname ) 
l 2 o n 

Library files can be either system or user libraries. 

Any library declared by a compiler or by a previous LDSET statement in the load se- 
quence is added to the list of local files. Clear the local set by omitting any parameters. 
This also clears any compiler library declarations (for example, it clears FORTRAN 
which is declared by the FTN compiler). If no global library set has been declared and 
the user clears the local set, there is no way for externals to be satisfied. No libraries 
are available to.be searched. As previously noted, LDSET has many optional parameters 
of which LIB is only one. The LIB=parameter can occur in any order in the LDSET 
statement. 
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Io^^Xt 6 3 : 1 T 5 / TT t i ere iS n ° global librar y set > th e local library set consists of 
-bUxil JrtAJN and ULIB. 



FORTRAN CODING FORM 



J0BSAN.CP7I0. 
FTN. 



¥' 



1 




Declares system I Ib- 
rary FORTRAN as 
local library 



Statements defining 
user library ULIB 



Z 



Adds ULIB to local 
I ibrary set 



r 



Loader searches 
local libraries 
FORTRAN and ULIB 



Example 3-15. Defining a Local Library 

LOADING DIRECTLY FROM LIBRARIES 

Now that you know how to declare libraries in global and local library sets, you can tell 
l h *}°** er to load from them * ° ne loader control statement that can be used is the 
LIBLOAD statement. LIBLOAD loads one or more modules from a library in a global 
or local library set. Modules are specified through entry-point names. 

| LIBLOAD(libname, eptname r eptname 2 , eptname 3 , . . . , eptname ) 

The first parameter must name the library containing the entry points. If one module 
contams more than one of the entry points, fewer modules are loaded than entry points. 



3-22 



60372600 A 



Example 3-16 illustrates a load sequence containing a library load request. Library 
USER contains entry point names ALPHA and BETA. Notice that a statement that 
terminates the load sequence must follow the LIBLOAD statement before execution can 
occur. In this case, the file name statement for HEIDI completes loading and begins 
execution. 



CONTROL DATA 



J08,CP7Q 



Statements 
defining HEIDI 



ATTACHCUSER,...) 
LDSET(Lie=USER) 
LI8L0A0< USER, ALPHA, BET A) 
HEIDI, 



Example 3-16. Direct Load From Library Using LIBLOAD 

LOADING PARTITIONS FROM LIBRARIES 

LIBEDT allows each partition on a library to be named. The name is either the program 
name for the object module or core image module in the partition, or is a name assigned 
by the creator of the library. The LOAD and SLOAD statements both provide options 
for loading a partition by name from a given library. Instead of entering a file name on 
the LOAD or SLOAD statement, enter a library name and a partition name in the form 
libname /pname. 
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LOAD allows loading of modules from both libraries and files, as shown in Example 3-17, 



J08,CP70. 

ATTACH(A,PERK,IC=A) 
FTN(8=LGC1> 
C0MPASS(E=LG02) 
LIBEDT<H)-« 



L0A0<LGCi, LIE/SIB) 

A. 

7/f/9 in column one. 

(FORTRAN SOURCE FR 
7/8/9 in column one. 

(COHPASS SUEPROGRA 

7/8/9 In column one. 

(LI8EDT DIRECTIVES 

7/8/9 In column one. 

(DATA) 
$17/8/9 in column one. 



CGR 

H) 

) 



AH) 



"1 



Generates object 
mocfule SUB on LG02 



r 



Writes SUB as par- 
tition on LIB 



T 



Loads object modules 
from f I le LGOI and 
from partition on 
LIB 



I 



LIBEDT generates 
library named LIB 
containing parti tl 
named SUB 



oj 



Example 3-17. Load Partition From Library Using LOAD 

See Ex^mplJV-lsh 38 ^ 16 *° ^ ^ ^ m ° re m ° duleS from the Petition indicated 

Remember that LOAD and SLOAD are loader control statements and can be used only in 
F°o a r LOAD^ff 3 ;. N ° te * hat SLO + AD allows loadin S of several modules from a partition, 
loaded partition contains more than one module, only the first module is 



CONTROL DATA 



JOB,CP70. 

ATTACH(LI6,PERFILE) 

SLO AD ( LIE/SUB, SUB1,SUB3) 

EXECUTE. 

6/7/8/9 in column one 

<0ATA) 
6/7/8/9 in column one 



1 



Loads modules SUB I 
and SUB3 from parti- 
tion SUB on library 
LIB 



Example 3-18. Load Partition From Library Using SLOAD 



3-24 



60372600 A 



PROGRAM AND JOB OPTIONS 



SCOPE 2 provides several options for overriding system defaults that normally affect 
every load during processing of the job. For example, a user can specifically designate 
the size of the SCM and LCM fields instead of having the loader assign a field length 
or he can tell the loader to always set the SCM field or the LCM field to a predetermined 
value before loading. This section describes how these options interrelate with the 
system-defined default values and tells why a user may want to use them. 

Because none of these options is required for normal job processing, the user may wish 
to omit this section and continue with Section 5. 

USING CORE MEMORY 

User SCM and LCM field sizes either are automatically determined by the loader, or 
are specifically defined by the user. 

AUTOMATIC CORE MEMORY MANAGEMENT 

The most common, most efficient, and easiest way of managing SCM and LCM field 
lengths is by using the automatic mode. This mode (also called dynamic field assignment 
and system controlled mode) is the system default. It is initially in effect for small 
core memory if the CM parameter is omitted from the job identification statement and 
is in effect for large core memory if the EC parameter is omitted. Automatic mode is 
overridden for the applicable core type if CM or EC is specified on the job statement, 
or if an RFL control statement is used. 

Automatic mode applies separately to SCM field size and LCM field size. One can be 
user controlled while the other can be in automatic mode. 

Example 4-1 illustrates a job that consists of five job steps. COMPASS is chosen for 
the illustration because of its LCM requirements. The FILE and STAGE statements 
involve the control statement processor only, which uses about lOOCL words of SCM and 
does not need .any LCM. UPDATE executes in the user field length in two passes, each 
of which has different SCM requirements. COMPASS Version 2 executes in the user 
field length. It has low SCM requirements and high LCM requirements. These require- 
ments vary with each of the three passes. The final step is object program execution 
(LGO). In this example, the object program requires both SCM and LCM. The SCM 
requirements are increased when an overlay load occurs. Requirements for object 
programs depend entirely on the source program. 

When automatic core memory management is in effect, the only limitation on the size 
of the SCM field length for a job step is the amount of SCM available to all users in 
the system. This is 60000 8 for 32K systems and 160000 g for 65K systems. Any time 
the loader is called, the amount of core assigned to the job is re- evaluated. 

LCM limits are slightly more complex because system I/O buffers for a job are in LCM 
but are not in the user LCM field length. The sum of the memory used for buffers and 
for LCM field length (FLL) cannot exceed an installation parameter that is normally set 
at 400000 8 for 256K systems and at 1400000 for 512K systems. 
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CONTROL DATA 



vlO8,CP70. 

FILE(OLDPL,RT^S7 

STAGE(CLDPL) 

UPDATE. 

COMPASS(I=CCMPILE> 

LGO. 

7/8/9 Jin cjotiam one. 

(UPDATE DIRECTIVES) 
6/7/8/9 In column ont 



No CM or EC 
parameter 






I 

: IELD 
AS 






-! JOB DEPENDENT 














T "" 

UPDATE 




SCM 


OVERLAY 
LOADER 












PRIMARY 


1 










COMPASS 
V.2 








LOADER 


LOADER 


LOADER 




FW 






MAIN 




MAIN ! 



LCM FIELD 



FWAL 



JOB DEPENDENT 



© I® |~ 



<D- 




Example 4-1. Job Using Automatic Core Memory Management 
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After each load, the system increases or decreases the field lengths to meet the changed 
requirements. Each call for the loader results in loader execution in SCM (about 3000 
words). The loader uses tables in system buffers in LCM, but these buffers are not 
in the user LCM field length and do not affect the amount of LCM required for field 
length. 

USER CONTROLLED CORE MEMORY MODE 

Although user controlled memory management is provided primarily for compatibility 
with other systems, certain types of programs cannot execute under automatic mode. 
For these programs, the user must explicitly specify memory requirements. 

Automatic mode cannot be used in special cases such as when the program legally con- 
tains a reference to a core location that exceeds the highest address loaded with the 
core module (for example, it references a blank common block that is not known to the 
loader). Only COMPASS allows this type of condition to occur. 

Controlling SCM 



The amount of SCM assigned for the job can be determined either by the CM parameter 
on the job identification statement or by a parameter on the RFL control statement. 

CM parameter: On the job identification statement, enter the amount of SCM assigned 

to the job as an octal value prefixed by the letters CM. The amount 
of SCM assigned the job is the exact amount specified by the CM 
parameter. Unlike SCOPE 3,4, no roundup of the value occurs. 
Any attempt to load a program beyond this fixed amount of SCM 
causes job termination. SCM cannot be set below 1000 g , the amount 
required for interpreting control statements nor can it be set above 
an installation defined value. 

Example 4-2 illustrates a job using the CM parameter. In this 
example, the program being loaded occupies 5000,, words of SCM 
and no LCM. However, the program references addresses in SCM 
above 5000 R that the loader is unaware of because they are initially 

"-^PV "•"" " v - i ~ "~" £~"~- — ' — ~ r~— - — o- - -- 

speed up loading. This technique is described in the COMPASS 
Reference Manual. 
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CONTROL DATA 



JOB,CP70,CM20000. 

ATTACH (PROG A, PERMFILE,ID=X XI 

PROGA. 

6/7/8/9 In column owl 



FLS=20000 8 



SCM FIELD 



50008 



FWAS 



UNUSED 



LOADER 



BUFFERS 



CORE IMAGE 
MODULE 



AUTOMATIC MODE WOULD 
HAVE SET FLS HERE. 



2AX53A 



Example 4-2. Using the CM Parameter to Control SCM 
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RFL statement: 



Use the RFL statement to change from automatic control of SCM to 
user control or to change the amount of SCM assigned to your job. 
Enter the amount of memory needed as an octal value. Place the 
statement before the load sequence to be affected. The RFL state- 
ment cannot occur within a load sequence. 



Example 4-3 illustrates a job that initially acquires 30000 words of 
SCM through dynamic allocation and then reduces the requirement to 
5000 words before loading the second program. 




Example 4-3. Using the RFL Statement to Control SCM 
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Controlling LCM 

Although some programs do not have any LCM requirements, others make heavy use of 
LCM. The FORTRAN Extended, RUN, COBOL, and COMPASS languages all provide 
for using LCM. 



Compiler or Assembler 

FORTRAN Extended and RUN 

COBOL 

COMPASS 



Language Element That Uses LCM 

LEVEL statement where level is 2 or 3 
SECONDARY STORAGE section 
USELCM pseudo instruction 



If LCM is under user control, remember to schedule LCM for object programs that 
use these statements. 

Set the amount of LCM assigned to your job (excluding LCM buffers) through the EC 
parameter on the job identification statement or by an RFL parameter. 



EC parameter: 



RFL statement: 



On the job identification statement, enter the amount of LCM needed 
in octal thousands prefixed by the characters EC. The COBOL com- 
piler requires at least 40000 g words of LCM; the COMPASS assembler 
requires at least 26000„ words. 



r JOBNAME, CP70, EC16. 

The preceding job identification statement sets LCM to a fixed value 
of 16000 8 words. 

Use the RFL statement to declare user control of LCM or to change 
a previous field length assignment. This statement cannot occur 
within a load sequence (for example between a LOAD statement and 
an EXECUTE statement). 

Enter the amount of LCM in octal thousands prefixed by the characters 
L = . There is no minimum for LCM; it can be 0. 



piFL(L = 16) 
The preceding statement sets LCM to a fixed value of 16000 R . 

RETURNING TO AUTOMATIC MODE 

Return the job to automatic mode by placing a REDUCE statement in the control state- 
ments as soon as possible. 

To return both fields to automatic mode, use REDUCE with no parameters. Otherwise, 
use an S to indicate SCM or an L to indicate LCM. 
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In Example 4-4, automatic memory management is in effect for the loading and execution 
of program ABLE. The RFL statement sets SCM field length to 60000s for the loading 
and execution of BAKER. When BAKER has terminated, the user specifies return to 
automatic memory management through a REDUCE statement. CHARLIE is then loaded 
and executed under memory management. 




JOB,CP70. 



ABLE. 

«FL(60000) 

LCAD(BAKER) 

EXECUTE. 

REDUCE, 

CHARLIE. 



Ff le related 
statements 



User control 
of SCM 



Return to 
automatic mode 



example 4-4. Mixed Mode Control of SCM 



In Example 4-5, SCM and LCM management are initially under user control through the 
CM and EC parameters. Program ALPHA can reference the assigned field lengths but 
must not initiate any loads that would exceed these limits. In the load sequence for 
BETA, however, the management of LCM is returned to automatic through a REDUCE(L) 
statement. Note that this statement is a SCOPE control statement. It is allowed to 
occur within a load sequence for compatibility with previous operating systems. The 
preferred location for the REDUCE statement is before the LOAD(BETA) statement 
which begins the load sequence. 

Following execution of BETA, the user again assumes control of LCM through an RFL 
statement requesting 130000g words of LCM. Finally, for the loading of GAMMA, the 
user returns SCM control to automatic with the REDUCE(S) statement. 

Unlike SCOPE 3.4, SCOPE 2 allows the value specified on the RFL statement to exceed 
the value specified by the corresponding EC or CM parameter on the job identification 
statement. 
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CONTROL DATA 



JOB,CP70,CM50 00G,EC12Q. 



ALPHA. 

10AD<BETA) 

REDUCE (L> 

EXECUTE. 

kFL<L=130> 

fcEDUCECS) 

IGAHHA. 



Changes SCM to 
automatic mode 




User control 
CM and EC 
parameters 



through 



I 



Fl le related 
statements 



Changes LCM to 
automatic mode 



Return LCM to 
user control 
through RFL 



Example 4-5. Mixed Mode Control of Both SCM and LCM 



PRESETTING CORE MEMORY 

When the loader determines the SCM and LCM field lengths (either dynamically or under 
user-control),, it has the option of setting the fields to an installation specified value 
(initializing core) or of not setting the fields. For this discussion, let us assume that 
the installation default specifies no presetting of core. 

One option available is telling the loader to preset the field length for each load sequence 
through the use of the LDSET PRESET option. Enter one of the parameters given in 
Table 4-1 prefixed by the characters PRESET = . One reason to preset core is to ensure 
that any read reference preceding a store into blank common will return zeros. In this 
case, use LDSET(PRESET=ZERO). 

For NGINF, each location contains its address in the lower bits. For example, if 
locations RAS + lOOOg and RAS + 1001 are unused, they are set to 



and 



4000 0000 0000 0000 1000 
4000 0000 0000 0000 1001 



For SCM, addr is a maximum of 18 bits. For LCM, it is a maximum of 21 bits. 
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TABLE 4-1. PRESET OPTIONS 



Option 


Octal Preset Value 


NONE 

ZERO 

ONES 

INDEF 

INF 

NGINDEF 

NGINF 

ALTZERO 

ALTONES 


No presetting 

0000 0000 0000 0000 0000 
7777 7777 7777 7777 7777 
1777 0000 0000 0000 0000 
3777 0000 0000 0000 0000 
6000 0000 0000 0000 0000 
4000 0000 0000 addr 
2525 2525 2525 2525 2525 
5252 5252 5252 5252 5252 



INSERTING COMMENTS IN THE PROGRAM LISTING 

Comments help provide a history of a job. Insert special comments or remarks after 
the terminator on any control statement. Such remarks are useful in interpreting pro- 
gram listings, or in providing general information. Example 4-6 illustrates some con- 
trol statements that include comments. 



FORTRAN CODING FORM 



J08,CF 



TAGE 
COM 
STAGE 

TN( 



< 

HEN 

{ 

IK 



COMMENT 



6f7/t/9 



KXX) 

r. 

TAPE 
PUT = 



REQUIRES 6 



INSERT FI 
2 ? P0ST) R 
XXX) S0LRC 
FORTRAN C 
t *tCU7 E Cfc 
coUum one 



LE 



tSJJ/CYPFR 



?C STA7ICN 



STATEfEN 
E QUIRES V 
E CN FILE 

FILER USE 
UECT PRCGR 



RI 



C^ 




T HEFE IF 

TE R3>G 
XXX 

S STAGEC S 
Br F C S T S 



RT=S FCR S3URCE 



CURCE FILE 
TAGE TAPE 



Example 4-6. Comments in Dayfile Listing 

Another way to introduce comments is through a COMMENT control statement. Any 
remarks can occupy columns 9 through 80 following the period after COMMENT Com- 
ments can include any characters except the double colon which has special significance 
because it may be interpreted as a 12-bit zero byte. Blanks, periods, and other punc- 
tuation are allowed. 

Remarks following COMMENT, are printed in the dayfile and the first 50 characters of 
the statement including COMMENT, are displayed to the operator on the console screen 
at the originating station. If you have a message to the operator, however, use PAUSE 
rather than COMMENT because comments from the COMMENT statement may not be 
displayed at the console long enough for the operator to see them. If a comment is 
too lengthy to fit on the line of coding, it can be continued on a second and subsequent 
COMMENT statements (see Example 4-7). 
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Example 4-7. Comment Two Lines Long 



PAUSE FOR OPERATOR ACTION 

The PAUSE statement allows the user to give an operator at one of the stations specific 
directions regarding the processing of your job. A PAUSE statement causes a message 
to remain on the console screen until it is acknowledged by the operator. Meanwhile, 
the job has halted processing. The operator acknowledges the message and restarts 
the job by typing GO, unless comments on the PAUSE statement direct him to DROP or 
KILL the job. Example 4-8 shows a PAUSE statement that tells the operator at station 

RDS to change tape units and rerun the job if any tape parity errors are encountered. 
If the user omits the station/terminal identifier, the station that originated the job is 
assumed. In the example, (RDS) would be replaced by a period. The message on the 
PAUSE statement has a maximum length of 50 characters and cannot be continued on a 
second statement. 



CONTROL DATA 



joe,cP70. 

STAGE(CATA,FCST,HY,ST=RCS) 
FILE(DATA,RT=F,FL=137,CP=YES) 






PAUSE routed to 
operator at 
station RDS 




FAUSE(RCS) IF PARITY ERROR, RETRY CN OTHER LMT 



Example 4-8. Directing the Operator Through a PAUSE Statement 
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SETTING PROGRAM SWITCHES 

The Job Communication Area (Appendix B) contains, in the lower part of word 0, six 
bits that are accessible through control statements and through the FORTRAN language. 
These are the pseudo sense switches. They logically simulate manual switches that 
were physically present on very early computer models. On early models the operator 
had to manually set or clear the switches. With the pseudo switches, however, the 
programmer sets or clears them through SWITCH statements. 



SWITCH(n,^ F ) 



Switches are numbered 1 through 6. All of the switches are initially off. To turn a 
switch on or off, specify the switch number followed by ON or OFF, respectively. 
Otherwise, omit the setting (ON or OFF) and by doing so specify that the switch position 
is to be alternated. That is, if it is off, it is turned on and vice versa. 

Example 4-9 illustrates a FORTRAN job that tests the status of sense switch 4. 



FORTRAN CODING FORM 



7/8/9 



SBBE 

N. 



SlWITG^ 
0, 



,CP7 



(<«,C 



ik column 



3 RCG 



i;o t 



Q. 



N) 



one. 

RflK ALPHA 



C (30,<*0) 




(INPUT, CUT 



FIT) 



Example 4-9. Using the SWITCH Statement 
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Example 4-10 illustrates a COBOL job that tests the status of sense switches 1 and 2, 




Example 4-10. COBOL Test of Sense Switches 

PROCESSING INTERDEPENDENT JOBS 

Sometimes the user is faced with the problem that he must have the output from one job 
or the job must satisfy some condition before he can run another job, but would like to 
submit both jobs at the same time. SCOPE allows several related jobs to be submitted 
and delays the processing of a job until one or more criteria are met. A user controls 
the progress of the related jobs through the combined use of the TRANSF control state- 
ment and the dependency parameter on the job identification statement. 

JOB DEPENDENCY PARAMETER 

For each job in the dependency string, whether it supplies a requirement of a waiting 
job or whether it is a job waiting for the requirement, enter the Dym parameter on the 
job identification statement. 
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y is two alphabetic characters (A through Z) that identify the jobs in the string. 
That is, it 

1. Provides uniqueness for the events in the system. The event name is 
formed by taking the first five characters of the job name and then append- 
ing the string identifier. 

2. Allows the operator using a console command to drop all of the dependent 
jobs in a string. 

m is a 1 or 2 octal digit count (0-77) of the dependencies the job must have 
fulfilled before it can begin processing. For the first job. to be processed in the 
string, m must be 0, that is, DyO. 

TRANSF CONTROL STATEMENT 

Enter a TRANSF statement in the control statement sequence each time a job satisfies 
a criterion needed by another job. 



rTRANSF(job r job 2 , . . . , job n ) 

A job can contain several TRANSF statements. Also, with one TRANSF the user can 
signal several jobs concurrently. Remember, the last job in the string cannot contain 
any TRANSF statements. 

Parameters of the TRANSF statements consist of the names of jobs in the dependency 
string for which the job meets some need. Only the first five characters of the job 
name are relevant. 

A job will wait indefinitely for its dependencies. Also, if a job posts a dependency for 
a job not yet in the system, SCOPE maintains a record of the position so that when the 
job is submitted, it can begin processing. 

In Example 4-11, the dependency string consists of six jobs all submitted at the same 
time and each identified with the identifier AB. JOB1 has no dependencies so it can 
immediately begin processing. Before its completion, JOB1 posts dependencies for 
JOB2 and JOB3. Each of these two jobs has one dependency and can now begin pro- 
cessing. Each job in turn signals jobs waiting. JOB3 posts dependencies for JOB4 and 
JOB5; JOB2, JOB4, and JOB5 each posts a dependency for JOB6. When the dependency 
count for a job is reached, it can begin processing. 

JOB RERUN LIMIT 

The operator may terminate a job and resubmit it (that is, rerun it) at any time during 
processing. Circumstances that might prompt such action are hardware problems at the 
station, operator errors (for example, mounting the wrong tape), etc. The operating 
system itself may also rerun a job upon encountering some system error when processing 
the job (for example, if an SCM or LCM parity error occurred within the user's field 
length). Following a deadstart recovery, any abnormally terminated jobs are automati- 
cally rerun. The user is notified that his job is rerun through a special listing of the 
control statements in the dayfile. This listing is terminated by the message JOB 
RERUN. 
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'6/7/8/9 



OBJECT MODULE 



7/8/9 

/inputT 



/jOB6,CP70,DAB03. 



6/7/8/9 



OBJ ECT MODULE 
/V/8/9 



TRANSF(J0B6) 



/m 



PUT. 



J0B5,CP70,DAB0l. 
/6/7/8/9 



OBJECT MODULE 
^7/8/9 



TRANSF(J0B6) 
/^INPUT. 



J0B4,CP70,DAB0I. 



6/7/8/9 



FOR TRAN SOURCE 
/7/8/9 



( /'TRANSF(JOB4,JOB5) 



/L60. 
/'RUNS(S) 



J0B3,CP70,DAB0I. 



'6/7/8/9 



/FORTRAN SOURCE 
^7/8/9 



^/TRANSFtJOBe) 



/RUN(S) 



\I0B2,CP70,DAB0|. 
/6/7/8/9 



OBJECT MODULE 
/7/B/9 



TRANSF(JOB2,JOB3) 



/INPUT. 




X)0BI,CP70,DAB0. 
















&^^ ^i 1 :^^^ 







Z^l 




2AX55A 



Example 4-11. Job Dependency String 
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Normally, a job cannot be rerun if one of the following conditions has occurred. 
Placing the Rr parameter on the job statement permits the operator to rerun the job 
despite the occurrence of one of these error conditions. 

1. The job has attached a SCOPE 2 permanent file with extend or modify 
permission. 

2. The job has cataloged a permanent file under either SCOPE 2 or 6000 
SCOPE 3.x. 

3. The job is a member of a dependency string, that is, it has a D parameter 
on its job identification statement. 

If none of the preceding conditions has occurred, there is no limit on the number of 
times the job can be rerun. 

If the user wants the job to be rerun regardless of the occurrence of any of the stated 
conditions, he enters the letter R followed by one or two octal digits. The value speci- 
fies the number of times that the job may be rerun unconditionally. 

A job named JOB is to be unconditionally rerun a maximum of five times. 



(' 



JOB,CP70,R5. 



To specify that the job is not to be rerun under any conditions, enter the parameter R0 
on the job identification statement. 

A job named ONCE is not to be rerun under any circumstances. 



6 



ONCE,CP70,R0. 

REWINDING Qp LOAD FILES 

Generally, positioning files before loading is not of concern. Rewinding of files is 
usually assured through an installation rewind option. Refer to the following rules to 
ensure that the file is rewound or not rewound before loading from it. 

Rules for rewinding: 

1. Before loading from the file, the loader always rewinds a file name call (for 
example, the LGO file). 

2. The REWIND and NOREWIN options of the LDSET statement are available for 
specifying that files in the load sequence be rewound or not. This statement 
should precede the LOAD or SLOAD statements that refer to the affected files. 
After the load sequence is completed, the installation option again takes effect. 

3. Use both LOAD and SLOAD loader statements to specify whether a file is to be 
rewound or not before loading from it. Do this by entering a file name as 
Ifn/R to indicate rewind or as Ifn/NR to indicate no rewind. The parameters 
on the LOAD and SLOAD statements take precedence over any LDSET state- 
ment in the sequence. 
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4. The only exception to the preceding rules is the INPUT file which is never 
rewound (set to beginning-of-information) by the loader. The loader ignores 
any request to rewind INPUT. 

5. Use the REWIND statement (Section 10) to explicitly request a file to be rewound 
before loading from it. This statement is illegal in the load sequence. It can 
be used for repositioning the INPUT file, however. A rewind of INPUT positions 
the file to the section following the control statement in the job deck. 

6. There is no need to rewind libraries. 

Example 4-12 illustrates load sequences that use a combination of the above options. 



CONTROL DATA 



J08,CP70. 



L0A0(A,B/NRI 
LOSEKNOREWINl 
L0AD(C,0,E,F/R) 
SL0AD<G/R,Pl,f>6) 

H. 



L0A0(J) 
EXECUTE.' 




Insta! I at Jon default 
set for rewind 



A is rewound 

B is not rewound 



C, D, and E are not 
rewound; F is. 





H is rewound; a file 
cal led by name is 
always rewound 



J is rewound; this 
is a separate load 
sequence, original 
default applies 



Example 4-12. Rewind or No Rewind of Load Files 
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FILE STRUCTURES 



SCOPE* 2 is a file-oriented system. All information, data, and programs known to the 
system are maintained as logical files. The characteristics of files, for example, 
record type, are determined by SCOPE 2 defaults, source language programs, or through 
control statements. Familiarity with the File Information Table, the mechanism through 
which the system and user communicate information about a file, is helpful to obtain an 
understanding of how file characteristics are determined. 

FILE INFORMATION TABLE 

Each logical file used by a job has associated with it a File Information Table (FIT) 
through which the system and the user communicate information about the file. 

SCOPE 2, and the record manager, in particular, expect to find the following information 
about a file in the FIT. 

1. Logical file name 

2. File organization (sequential, word addressable, or library) 

3. Record type and specifications relevant to record type 

4. Blocking type, if any 

5. Processing direction (input, output, or input/output) 

6. Labeling requirements (blocked files only) 

7. End-of-data exit options 

8. Error exit options 

9. Disposition (processing code), if any 
10. Other, optional information 

Generally, the programmer provides the file name as a minimum and can rely entirely 
on the compilers and assemblers to generate a FIT in the SCM field using system de- 
fault values to fill in the file description. For example, the FORTRAN compilers gen- 
erate a FIT for each file noted in the PROGRAM statement. The COBOL compilers 
generate a FIT for each file assigned, using the File Description (FD) entry for the file. 

INTRODUCTION TO FILE STATEMENT 

Sometimes, the generated FIT does not automatically exactly match the requirements of 
the file to be generated or the description of an existing file. When this happens, the 
user has the option of overriding the information in the FIT supplied in the object pro- 
gram by using a FILE control statement. This statement gives the user considerable 
freedom to control the format of data to be read or written. 
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Place a FILE statement in the control statement section anywhere before the job step 
that requires the file specification. The first parameter must be the logical file name 
(lfn). 



t 



FILE (lfn, . . . ) 

All other parameters can be in any order separated by commas. These parameters are 
described with related features. For example, the record type parameter (RT) is des- 
cribed under Specifying Record Type. 

MULTIPLE FILE STATEMENTS 

Information from multiple FILE statements that refers to the same file is merged into 
the FIT. If a specification is repeated, the most recently encountered specification takes 
precedence over earlier specifications. 

In Example 5-1, the FILE statement to redefine list output file LO precedes the compi- 
lation; the FILE statement that redefines TAPE1 precedes the load-and-go statement. 



CONTROL DATA 



JOBSAM,CP70. 
STAGE(PRCG) 
FILE(PROG,RT=F,FL=80) 
FTN(I = PRCG) •+ 



FILE<TAPEi,...) 
LGO. 



7/S/9 in cdtuunn one. 

(DATA) 
6/7/8/9 In column ont 



1 



Defines PROG as 
other than default 



I 



Compi ler uses PROG 
for source program 



Z 



Defines TAPE I as 
other than default 



Object-time program 
uses TAPE I 




3 



Example 5-1. Placement of FILE Statement 

CARRYING FILE DEFINITIONS ACROSS JOB STEPS 

Remember that the File Information Table (FIT) is inside the object program. Let us 
examine what happens to the file when the object program terminates to see how subse- 
quent job steps are able to use the file. For example, suppose that following object 
program execution you wish to copy the data file. What file description will the copy 
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routine use - the description used by your object program or the system default for 
the file? To use the object program description, the answer to both of the following 
questions must be "yes". 

1. Does the object program close the file? 

2. Does the routine carry a description from the previous job step to the current 
routine? This description is maintained in a File Description Table (FDT) 
within the SCOPE 2 Job Supervisor. Information differs somewhat from that 
in the FIT. 

Neither factor is easily discernible to the user. As a general rule, files are closed 
between job steps. Most members of the SCOPE 2 product set, that is, compilers, 
assemblers, object-time routines, and library maintenance routines close files and have 
SETFIT macros in their file initialization procedures. Copy routines are an exception; 
they do not close files. 

What this means is that the file definition used by the first step that accesses the file 
applies to the entire job if there are no subsequent FILE statements. Example 5-2 
illustrates this point. 



CONTROL DATA 



COBOL CODING FORM 



STAGE ( 

COBOL. 

IGO. 

EXIT. 

REWIND 

CMFFILE 

■7/8/9 4 

h/7/%/9 




Example 5-2. Carrying File Definition Across Job Steps 

SPECIFYING RECORD TYPE 

The logical record is the basic unit of data handled by the record manager. Its defini- 
tion varies according to record type. That is, the end-of-record is defined separately 
for each record type other than U, for which it is undefined. Record lengths are defined 
in units of 6-bit characters. 

The nine record types and their associated FILE statement parameters are briefly 
summarized in the following text. Additional detail is provided in Appendix D. 
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W Control Word: Each record is characterized by a control word header 

containing sizes of current and previous records. This is the system and 
FORTRAN (RUN and FTN) default. To specify, place RT=W on the FILE 
statement. 



FULL WORDS- 



DATA 



-Lsr- 



UNUSED 
BITS 



W CONTROL WORD 



59 ^'54 



** * 



42 



24 



18 



LENGTH OF PREVIOUS 
RECORD IN WORDS 
INCLUDING W WORD 



^"-■^00 



LENGTH OF THIS 

RECORD IN WORDS 

LESS W WORD 



L 



NUMBER OF UNUSED BITS IN LAST 
WORD OF THIS RECORD (ML<60) 



• BITS RESERVED FOR CDC 
■ BITS RESERVED FOR USER 
■TYPE OF RECORD: 

DATA FOLLOWS 

1 RECORD IS DELETED (NOT LOGICALLY PRESENT) 

2 END -OF- PARTITION; NO DATA FOLLOWS THIS CONTROL WORD 

3 END-OF- SECTION; NO DATA FOLLOWS THIS CONTROL WORD 
PARITY BIT 
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SCOPE Logical: Each record consists of blocks of data terminated by a 
short block to which is appended a 48-bit level number or terminated simply 
by the level number (called a zero length block). A block is the data be- 
tween two interrecord gaps on magnetic tape. This record type is also 
known as 6000 SCOPE Standard and 7600 1. 1 I-Mode. To specify nlace 
RT=S on the FILE statement. 



FILE FORMAT 



BLOCK 



BLOCK 



BLOCK 



SHORT BLOCK 



L_X 



ZERO-LENGTH BLOCK 



BLK 



LOGICAL RECORD - 



LEVEL 



LEVEL 



48 BITS 

2AX62A 
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X X-Mode: Each record consists of blocks of data terminated by a short 

block. If the data ends on a block boundary, the short block consists of 
a 48-bit short (zero-length) block. This record type is read only. It is 
specified by RT~X on the FILE statement. 



BLOCK 


BLOCK 


BLOCK 


BLOCK 


BLOCK 


BLOCK 




06ICAL RECORD 






^ 


1_ 







48-BIT SHORT BLOCK, 
IF NEEDED 
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Zero Byte: Each record consists of an integral number of 60-bit words in 
which the last word has the low-order 12 bits set to zero, that is, contains 
a zero byte. The user must specify RT=Z and FL=n on the FILE statement, 
where n is a decimal count of characters. It must be large enough to ac- 
commodate the largest record on the file. The default for n is 0. 




ZERO BYTE 

2AX64A 



Fixed Length: Each record consists of a fixed number of characters. This 
record type is specified by RT=F, FL=n on the FILE statement, where n is 
the decimal count of characters in each record. The default for n is 0. 
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D Decimal Count: Each record consists of a number of characters specified 

in a decimal count field within the record. The record type is specified 
as RT=D. The position of the length field is specified in characters as 
LP=n; the length of the length field is specified as LL=m, where m is 1 
to 6. The defaults for n and m are 0. 



DATA 



LENGTH 



t~ 



LL- 



DATA 



2AX66A 



LP 



R Record Mark: Each record consists of a series of characters terminated 

by a character designated as the record mark character, conventionally ] . 
The default for 7600 record manager, however, is a colon. Use RMK-n, 
where n is the decimal or octal equivalent (octal equivalent suffixed by B), 
of the character in display code to specify a record mark character. In 
addition, it is possible to specify the minimum record length before which 
the record mark is not sought by the record manager. For this, use 
MNR=m, where m is a decimal character count. Use RT=R to specify R 
records. 



DATA 




] 



RECORD MARK CHARACTER 
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T Trailer Count: Each record contains a fixed length header followed by a 

variable number of fixed length trailers. The header length is specified as 
HL=hl on the FILE statement. The trailer length is specified as TL=tl. 
In addition, the trailer count field which contains a decimal count of the 
number of trailers in a record is defined through the count position (CP=cp) 
and count length (CL = cl) parameters, where cp indicates the beginning 
character position of the count field and cl indicates the length (1 to 6). 
The default for all of the parameters is 0. To specify T records, use 
RT=T. 









m 






- Tl ^ 


*-TL-> 


*-TL-> 




«-TL-*- 






DATA 


n 


DATA 


DATA 


DATA 


DATA 


1 


DATA 


/ 


CL 

D 
















r* 




n " 


fRAILEF 


ts 


AX68A 
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U Undefined: The size of each record is literally undefined. By using K 

blocking with one record per block, the record manager uses block delimiters 
as end-of-record delimiters. Use RT=U to specify U record type. 



UNDEFINED 2AX69A 



The user can either use the default type specified by the FIT assembled or compiled for 
the file or can use the RT and associated parameters on a FILE control statement to 
specify some other record type. This must be done with great care since some programs 
are not designed to handle all record types. For example, the SCOPE 2 system default 
record type is W. No other record type can be used for input or output from the loader 
or for the standard files, INPUT, OUTPUT, PUNCH, and PUNCHB. 

The FORTRAN Extended and RUN compilers always generate a FIT with the record type 
set to W. This is the easiest record type to use. Other record types are subject to 
the constraints listed in Table 5-1. 

The COBOL compiler generates a FIT for each of the system files INPUT, OUTPUT, 
PUNCH, and PUNCHB whether they are assigned in the program or not. If they are 
assigned, they have record type W. 

For any other file/ COBOL sets the record type according to the file description (FD) 
entries in the COBOL source program, as shown in Table 5-2. 

As a general rule for output, regardless of the file description, a file can be redefined 
as W record type. If all of the records are the same length, the file can be defined as 
F or Z record type. If records are all multiples of 10 characters (full words), the file 
can be redefined as S record type. 
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TABLE 5-1. FORTRAN RECORD TYPE CONSTRAINTS 



Record Type 


Constraint When Writing 


W 

S 
X 
Z 

F 
D 

R 
T 

U 


Recording mode must be binary for magnetic tape. Each write 
creates a W record. 

Each write creates an S record. Recording mode must be binary. 

Read only; no writing allowed. 

Recording mode must be binary for magnetic tape. Each write 
creates a Z record. 

User must ensure that all records are fixed length. 

User must insert record length in the decimal count field. Deci- 
mal count field must be within FORTRAN object -time buffer limits. 

User must supply record mark character that terminates data. 

User must insert trailer count in the count field in the header. 
The count field must be within the FORTRAN object -time buffer 
limits. 

Only block type K with one record per block is allowed. Each 
write creates a block containing one record. 

■ ■ ■ - : 



On a read, with the exception of Z records, if the record does not completely fill the 
buffer, the remainder of the area is unchanged from the last read; it is not blank filled. 
For Z records, the area is blank filled up to FL. 
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TABLE 5-2. COBOL SPECIFIED RECORD TYPES 



FD Entries 


01 Entries of 
Same Length 


01 Entries of 
Different Lengths 


01 Entry with 
OCCURS... 
DEPENDING 
ON data name 


RECORD CONTAINS integer TO 
integer 2 CHARACTERS 

BLOCK CONTAINS 1 RECORD or 
BLOCK CONTAINS clause omitted 


U 


U 


T 


RECORD CONTAINS integer TO 
integer 2 CHARACTERS 

BLOCK CONTAINS integer 

RECORDS or 

BLOCK CONTAINS integer 

CHARACTERS 


W 


W 


T 


RECORD CONTAINS clause 
omitted 

BLOCK CONTAINS 1 RECORD 


F 


u 


T 


RECORD CONTAINS clause 
omitted 

RECORDS 


F 


w 


T 


RECORD CONTAINS integer 
CHARACTERS 


F 


illegal 


illegal 


RECORD CONTAINS integer TO 
integer CHARACTERS DEPENDING 
ON data-name 


D 


D 


illegal 


X\ JCjV^A_^J.\,JU/ V^UiN 1X1111U llUCgtl J- w 

integer CHARACTERS DEPENDING 
ON RECORD MARK 


R 


R 


illegal 



CAUTION 

When using COBOL, it is possible for a file 
to contain records of more than one type. 
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In Example 5-3, the FIT generated for TAPE1 by the RUN compiler defines record type 
as W. The STAGE statement, as will be described later, causes the file to be blocked. 
To change the description, the programmer inserts a FILE statement before execution 
causing record type to be Z with a record length of 80. In this example, block type 
(BT) is also specified to change the block type to C from the default for Z which would 
have been K. 



CONTROL DATA 



FORTRAN CODING FORM 



JpBSAH,CP7fO 
FTN. 

stagectape 
file(|t|apei 

LSO. 

7t8/9 l\i co&wtn 



5 
lfi 

1D0 



05 
D6 

10 



120 



PRO 

PRI 

FOR* 

READ 

FGRH 

IF 

IF 

IF 

GC T 

CALL 

AREA 

PRIN 

FORM 

F18. 

WRIT 

GO T 

STOP 

EKC 



one. 
GlRAM CKE <I|NPUT,GUTFI 



i,P0ST) 
,RT=Z/hl=a 



0,6T=G) 



NT 5 
AT (1H1) 

i00,EASE, 
ATC2F1CI.2I 
I.GT.O) GO 
eASE.LE.O) 
FFIGhT.LE. 
106 

*SG 

= .5*8ASE 






Defines record type as Z 
to override default of W. 
Maximum record length is 
80 characters. 



T,TAFEi) 



HEIGHT, I 
L) 

TC 120 
GC TC 105 
0) GO TC 1D5 



■'HEIGHT 



110, BASE ,HEIGHT,AR 
IT (///,♦ !ASE=*F20. 



5,/,» AREA:=*F20.5> 



E (1) 

D 10 



AREA 



EA 



FEIGHT=» 



Writes Z-type 
records on f I te 




Example 5-3. Overriding Default of W Record Type for FORTRAN Program 
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Example 5-4 illustrates file description entries for COBOL implementor names LIST- 
FILE, PARAM-FILE, and TEST-FILE. From the entries, COBOL determines that 
LIST-FILE and PARAM-FILE are record type F. These descriptions are overridden, 
however, by the ASSIGN clause which assigns these files to system files OUTPUT and 
INPUT, making them W unblocked. 



The FD entry for TEST-FILE describes trailer (T) records. 
DISK1, to which TEST-FILE is assigned, is set to T. 



Thus, the record type for 



CONTROL DATA 



COBOL CODING FORM 



ENVIl 



DATA 
FILE 
FC L 



01 



01 



FD TE 



RCNMENT DIVISION 



1 



Control statements 
do not include FILE 
statement for DISK! 



I 



input-output section. 

file! control. 

SELECT TEST-FILE 
SELECT LIST-FILE 
SELECT FARAM-FILE 

DIVISION. 

SECTION. 
IST-FILE. 
RECORD CONTAINS 1 
LA8EL RECORDS ARE 
DATA RECORD IS PR 
PRINT-LINE 



ASS 

ASS 

AS 



IGN TC CISKIs /' i 

ign tc cltputv i 
sign to inplt; 



Defines record type 
as W, block type as 
unblocked 



DATA REC 
PARAH-Cfl 
02 COUNT 
02 FILLE 
ST-FILE 
BLOCK CC 
RECORD C 
LABEL RE 
DATA REC 
TEST-REC 

02 HEADE 

03 LENG 
02 BCDY 



CRD IS PA 
RC. 

PICTURE 
R PICTURE 

NTAINS 5 

CNTAINS 1 

CORDS ARE 

0RD IS TE 

CRD. 

R. 

TH PICTUR 

OCCURS 1 



20 

Oh 
INT 

E I 
RAP 

IS 
IS 

REC 

T 

Of 

ST- 



CHARACTERS 

ITTED 

-LINE. 

S X ( 1 2 ) \/ALUE IS 
-CARD. 



iii i <pbrF$ 




9(1G) . 
X(70 ). 

CRCS 

C 1010 CHARACTERS 

ITTED 

RECCRC. 



Defines record 
type as T 




Example 5-4. COBOL Assignment of Record Types Through File Description 



60372600 A 



5-11 



SPECIFYING THE MAXIMUM RECORD LENGTH 

The MRL parameter on the FILE statement permits the user to specify the maximum 
record size for the file. MRL does not apply for F and Z records; for these two re- 
cord types, FL serves the same purpose. MRL is significant only for input; it is 
ignored on output. 

The setting of MRL depends on whether the program I/O routines manipulate full or 
partial records. The FORTRAN and COBOL object-time routines always manipulate full 
records. Do not use a FILE statement to set MRL because the compiler sets the value 
for you. FORTRAN sets the MRL to 150 for coded files and to 327,680 for binary files. 

In COBOL, the size of MRL is determined by the sum of all the fixed length elementary 
items plus the sum of the maximum number of variable length items in the record 
Either the RECORD CONTAINS clause or the OCCURS clause is used in determining the 
maximum size for variable length records. 

The MRL set by the compiler takes precedence over the system default for MRL, which 
is 0. MRL of specifies unlimited record size. 

To specify MRL, use the MRL parameter on the FILE statement where n is the number 
of characters in decimal. 



[ FILEQfn, MRL=n, ... ) 

Rules: 

Do not set MRL for the INPUT file to less than 88. 

For block types K and E, MRL cannot exceed block size (MBL). (See Blocked File 
Format page 5-14.) 

UNBLOCKED FILE FORMAT 

NOTE 

The term "unblocked" used in the SCOPE 2 
sense, is essentially a gapless format supported 
only on a mass storage. It is a continuous 
stream of data. In comparison the industry 
accepted meaning for unblocked describes the 
situation where the information between two 
interrecord gaps on magnetic tape comprises 
one record. In this case, a block and a record 
are synonymous. To SCOPE 2, this is a blocked 
format with one record per block. 

The unblocked file can exist on mass storage only. Just one record type, the W record 
type, permits delimiters of a higher order than records, that is, permits sections and 
partitions on mass storage. This is because the unblocked file normally has no vehicle 
for maintaining section and partition delimiters. When W control words are present 
they act as such a vehicle (Figure 5-1). Thus, for record types other than W, an un- 
blocked file is simply a collection of records. S and X records cannot be unblocked. 
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LOGICAL 
RECORD 




LOGICAL 
RECORD 



LOGICAL 
RECORD 



LOGICAL 
RECORD 



LOGICAL 
RECORD 



FORMAT OF UNBLOCKED FILES HAVING RECORD TYPES 
OTHER THAN S OR W 



EOS 



EOS EOP 



w 



EOI 



EOS EOP 



il 



SYSTEM MASS STORAGE 



WW 
C 
W 



LOGICAL 
RECORD 



LOGICAL 
RECORD 



LOGICAL 
RECORD 



EOI 



W CONTROL WORD 



t = DATA FOLLOWS 

1 DELETED RECORD 

2 EOP 

3 EOS 



v' 


54 


42 


24 


18 


^-^00 


t 






LENGTH OF PRE- 
VIOUS RECORD 
IN WORDS 




LENGTH OF THIS 
RECORD IN WORDS 
LESS W WORD 





NUMBER OF UNUSED BITS IN LAST 
"WORD OF THIS RECORD (n<60) 



FORMAT OF UNBLOCKED FILE USING RECORD TYPE W 



2AXI0A 



Figure 5-1. Unblocked File Format 
Rules for Acce ssing Unblocked Files 

1. Unblocked files can be accessed using any of the file organizations. Remember, 
however, that 6000 SCOPE 3.4 does not allow sequential (SQ) files to be un- 
blocked. 

2. Only unblocked files can be accessed as word addressable (WA) files. 

3. Only unblocked files using W record type can be accessed as library (LB) files. 

Thus, the LB file organization can be considered as a special case of the word 
addressable file. 
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How to Specify Unblocked 

1. The system default for blocking type (BT) in the FIT is normally unblocked for 
mass storage files. The default for COBOL is blocked (Table 5-3). 

2. The user can specify unblocked for a mass storage file by providing a FILE 
statement with a null BT parameter (simply BT). 



fFILEUfn.BT) 
Specifying unblocked for a magnetic tape file is illegal. 

BLOCKED FILE FORMAT 

Blocking of records is the process of grouping a number of logical records before 
writing them on a magnetic tape file. This grouping is called a block. Grouping two 
or more records per block improves data transfer rates by reducing the number of 
interrecord gaps in the file. Blocking usually increases processing efficiency by re- 
ducing the number of physical input /output operations required to process the file. 

Blocked files can be magnetic tape files (Figure 5-2) or mass storage files (Figure 5-3). 
When on magnetic tape, a file must be blocked. Even when it is on mass storage, a 
blocked file is basically an image of a magnetic tape file. Therefore, delimiters pos- 
sible on magnetic tape file such as interrecord gaps and tapemarks must be simulated 
on blocked mass storage files. The vehicle used to simulate these delimiters is the 
recovery control word (RCW) (Figure 5-3). 

THE BLOCK 

On magnetic tape, a block is the information contained between two interrecord gaps. 
On mass storage a block is the information between two recovery control words. Except 
for the fact that the record manager must be informed that a file is blocked (see rules 
for specifying blocking), blocking has little impact on the user. Blocks are invisible to 
FORTRAN and COBOL object-time routines because the record manager deblocks the 
records on input and blocks them on output. The various blocking types (Figure 5-2) 
are designed to meet ANSI standards and /or to provide compatibility with formats used 
on other computer systems. 

For S, X, and Z records with C blocking, a short block has special meaning. For S 
records, it signals either end-of-record (level 0, 48-bit appendage) or end-of-partition 
(level 17g, 48-bit appendage). For X records it signals end-of-record. For Z records, 
it signals either end-of-section (level 0, 48-bit appendage) or end-of-partition (level 17 ,' 
48-bit appendage). 8 

Generally, the default block type is the most efficient for the record type. The block 
size depends on several factors; in general, it should be around 5000 characters. 
Larger sizes tend to increase the chance of parity errors, which in turn reduces 
throughput. For on-line tapes, if the application program processes data fast enough 
to achieve nonstop I/O, it may be advisable to use shorter blocks to sustain the I/O. 
Also, by selecting a small block size, the user could keep core use to a minimum. 
This technique is advisable in a heavily loaded multiprogramming environment. 
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LOAD 
POINT 
(BOD- 



BLOCKS SEPARATED BY INTERRECORD GAP 
(RECOVERY CONTROL WORD ON MASS STORAGE) 



BLOCK 



s 



BLOCK 



BLOCK 



BLOCK 



BLOCK 



BLOCK 



BLOCK 



BLOCK 



C BLOCKING 



EACH C BLOCK CONTAINS 
MBL OR LESS CHARACTERS 



LOGICAL 
RECORD 


LOGICAL 
RECORD 


LOGICAL 
RECORD 


LOGICAL 
RECORD 


« 
1 


LOGICAL 
RECORD 





K BLOCKING 



EACH BLOCK LENGTH IS SUM 
OF RB RECORD LENGTHS. 
RECORD COUNT (RB) INCLUDES 
ZERO -LENGTH RECORDS. 



EACH BLOCK LENGTH IS SUM 
OF NUMBER OF RECORDS 
CONTAINED IN MBL. BOTH 
RECORD SIZE AND BLOCK 
SIZE ARE VARIABLE. 



LOGICAL 

RECORD 

I 



LOGICAL 

RECORD 

2 



LOGICAL 

RECORD 

3 



LOGICAL 
RECORD 

4 



LOGICAL 

RECORD 

RB-I 



LOGICAL 

RECORD 

RB 



E BLOCKING 



LOGICAL 
RECORD 


LOGICAL 
RECORD 


LOGICAL 
RECORD 


LOGICAL 
RECORD 


1 

! 


LOGICAL 
RECORD 


LOGICAL 
RECORD 



EOI 




RECORDS CAN 
SPAN BLOCKS 

ZL_ 



LOGICAL 
RECORD 



LAST BLOCK HAS RB 
OR LESS RECORDS. 



I BLOCKING 



EACH I BLOCK CONTAINS MBL 
OR LESS CHARACTERS. 



LOGICAL 
RECORD 



LOGICAL 
RECORD 



LOGICAL 
RECORD 



LOGICAL 
RECORD 



LOGICAL 
RECORD 



LOGICAL 
RECORD 



BLOCK ENDS ON LAST 
FULL RECORD THAT DOES 
NOT CAUSE BLOCK LENGTH 
TO EXCEED MBL. 



RECORDS CAN 
SPAN BLOCKS 

3_ 



LOGICAL 
RECORD 



LOGICAL 
RECORD 



•'icwx 



ICW 



59„ 



INTERNAL CONTROL WORD 
53 42 18 



VOO 







BLOCK 
ORDINAL 


NUMBER OF 
NEXT RECORD 


LOCATION OF 
NEXT RECORD 


1 — CDC AN 
PARITY 


D USER BITS 





MBL - MAXIMUM BLOCK LENGTH IN 
CHARACTERS SPECIFIED IN 
FIT; DEFAULT IS UNLIMITED. 

RB -RECORDS PER BLOCK; DEFAULT IS I. 



Figure 5-2. Blocking Types 
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SYSTEM MASS STORAGE 



R 




R 




R 


l( 


R 




R 




R 




R 




»C 


BLOCK 


C 


BLOCK 


C 


[1 


c 


BLOCK 


C 


BLOCK 


C 


BLOCK 


C 




W 




W 




W 


){ 


W 




W 




W 




W 




i, 










• 
• 

s 
s 




X 
V 

N 












t 



BOI 



EOI 



,' RECOVERY CONTROL WORD 

59/54 48 45 24 21 



^00 



t 


UNUSED 

BITS IN 

LAST WORD 




PREVIOUS BLOCK 

(WORDS) 

INCLUDING RCW 








BLOCK LENGTH 

(WORDS) 
EXCLUDING RCW 



L 



t = RECORD FOLLOWS 

1 EOP 

2 EOI 



STATUS: 
HARDWARE 

MALFUNCTION 
IRRECOVERABLE 

PARITY 
LOST DATA 



n A 



UNUSED (BIT 21) 

■EOV ENCOUNTERED (BIT 22) 

•RECOVERED PARITY ERROR 
STATUS (BIT 23) 

2AXI2A 



Figure 5-3. Blocked File Format on Mass Storage 

E type blocking can be used, but is generally not as efficient as K type blocking. How- 
ever, for particular applications, E blocking is more suitable than K blocking. For 
example, E blocking is preferable when a file contains records that vary widely in size. 

I blocking and C blocking allow records to span blocks. For K blocking and E blocking 
records cannot span blocks, thus, maximum record length (MRU cannot exceed maximum 
block length (MBL). 



Accessing Blocked Files 

Blocked files can be accessed as sequential (SQ) files only. Remember that blocked W 
records cannot be printed, punched, loaded by the loader, or used as input to LIBEDT. 

How to Specify Blocking 

1. Blocking is automatically specified by the record manager when the user defines 
a file as being on magnetic tape through use of a REQUEST MT control state- 
ment or through use of a STAGE control statement. The default block types are 
then determined according to record type as follows: 



Record Type 

W 

S or X 

other 



Block Type 

I 
C 

K 
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2 Blocking can be specified in the COBOL source language through the BLOCK 
CONTAINS clause, as shown in Table 5-3. The BLOCK CONTAINS clause 
takes precedence over system defaults described in Rule 1. 

TABLE 5-3. COBOL SPECIFICATION OF BLOCKING 



BLOCK CONTAINS Clause 



BLOCK CONTAINS integer-2 RECORDS 

BLOCK CONTAINS integer- 1 TO 
integer-2 RECORDS 

Clause is omitted 



BLOCK CONTAINS integer- 1 TO 
integer-2 CHARACTERS 



BLOCK CONTAINS integer-2 
CHARACTERS 



Block Type 



K 
Record Count 



E 
Exact Records 



C 
Character Count 



3. To override the default or COBOL defined block type, or to specify blocking for 
a mass storage file, use the following parameters on the FILE control statement. 



Block Type 
Internal 



File Statement 
Parameters 

BT=I,MBL=x 



Notes 

BT=I is allowed for W records only. If the 
block size (MBL) is unspecified, the default 
for x is 5120. 



Record count 



BT=K,RB=x 



Character 
count 



BT = C,MBL=x 



Exact records 



BT=E,MBL=x 



BT=K is not allowed for S or X records. 
If the number of records per block (RB) 
is unspecified, the default for x is 1. 

K blocking is conventional for U records. 
RB must be 1 for U records. 

Maximum block length is computed from 
maximum record length (MRL) multiplied by 
records per block (RB). If MRL has not 
been previously specified it is set to 5120 
by default. 

If the number of characters per block* is 
unspecified, the default for x is 5120. 

BT=C is the only block type allowed for S 
and X records. It is conventional for Z 
records. 

If the maximum number of characters per 
block is unspecified, the default for x is 
5120. BT = E is not allowed for S or X 
records. 
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Rules for Specifying MBL 

1. For I blocking, MBL must be 5120 to be compatible with SCOPE 3.4. 

2. For C blocking, MBL must be 5120 to be compatible with SCOPE 3.4 S/L 
devices. 

3. For S, X, Z, and W records, MBL must be a multiple of 10 characters (full 
words). 

4. MBL (for BT=K, MRL x RB) is limited by location of the magnetic tape unit as 
shown in Table 5-4. The 6000/CYBER 70 station restrictions apply also to 
SCOPE 3.4 blocked permanent files. 

TABLE 5-4. MAXIMUM BLOCK SIZES ALLOWED FOR STAGED 

AND ON-LINE TAPES 



Location of Tape Unit 


Block Si 
7-Track 


ze for 
Tape 


Block Size for 
9-Track Tape 


6-Bit Char. 


Words 


Binary 


Coded 


Words 


On-Line tape 


25,590 


2559 


25,590 


19, 162 


2559 


7611-11, 6000, or CYBER 
70 Station 


25,590 


2559 


5120 


3,840 


512 


7611-2 Magnetic Tape Station 


5120 


512 


5120 


3,840 


512 


7611-1 I/O Station 
1 . 


5120 


512 


-- 


-- 


-- 



Example 5-5 illustrates a job that lists a tape created on another computer system 
The tape contains records terminated by a 77 (; in display code). Records are blocked 
5120 characters per block and can span blocks. Blocks are even multiples of 6-bit 
characters. In this example, C blocking must be specified on the FILE statement to 
override the system default of K blocking for R records. 



CONTROL DATA 



Specifies C-type 
b locking 



/ 



J0B,CP7G. 
STAGE(RTAPE) 

FILE(RTAPE,FT=R,RHK=7 7E,BT=C,HEL=512 0) 
C0PYSP (RTAPE) 

6/7/8/9 in coZwm one. 



Example 5-5. Using a FILE Statement to Specify Blocking 
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PARTITIONS 

End-of-partition is synonymous with the term end-of-file as commonly used for FORTRAN 
and COBOL languages and previous operating systems. See Figure 5-4, which illustrates 
end-of-partition on magnetic tape. Note that the representation of end-of-partition is dif- 
ferent for some of the record types. A single tapemark is equivalent to an end-of-parti- 
tion (EOP) for the following: 

1. Blocked files with record types F, D, R, T, U, X, and W 

2. Z records if they are K or E blocked 

For record types S and Z with C blocking, a short block consisting of only 48 bits and 
having a level number of 17 p signals an end-of-partition. This is known as a zero-length 
block because it contains no 8 data. The contents of this block are not passed to the user 
buffer. Instead, EOP status is returned. A single tapemark is unlikely to occur on b 
and Z records (C blocked). 

For W records, an end-of-partition is signaled through a tapemark or an EOP W control 
word, depending on how the EOP is generated. The control word is conventional. 

Figure 5-4 illustrates conventional usage. That is, a single tapemark could be used to 
indicate end-of-partition on S record tapes or W record tapes by using the WTMK macro 
in the COMPASS language instead of the ENDFILE macro, but doing so is not customary. 

The following language functions produce an end-of-partition. 

Language Function 

FORTRAN Extended ENDFILE statement 

RUN ENDFILE statement 

COMPASS WTMK macro and ENDFILE macro 

For all record types, the WTMK macro generates a tapemark when it is used on a 
blocked file. The WTMK macro is ignored if it is used on an unblocked file. 

The ENDFILE macro (which is used by copy routines and the compiler object time rou- 
tines, that is, the iiiiMiJ^ii-,^ statement; uues uui a±w«v° b 6 "^ ^ "■ *- i-— ~— — — *----- 
cular, it generates an EOP control word for record type W, whether blocked or unblocked. 
This W control word may occur inside of a block. It also generates the short block when 
used on S records and Z records with C blocking. For all other record types, it gen- 
erates a tapemark. 

On the INPUT file, the end-of-partition is represented by a 7/8/9 card with a level of 
17 8 . 

An end-of-partition is equivalent to the 7600 SCOPE 1 end-of-file card (6/7/9 multipunch 
in column 1) or a SCOPE 1 type 2 boundary control word. 
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(BOIH 



EOI 



BLOCK 



BLOCK 



BLOCK 




EOP INDICATED BY 
"SINGLE TAPEMARK 

LOAD A - 3:?5 D JIH5 ° THER THAN S 0R Z WITH C BLOCKING. THIS ILLUSTRATION APPLIES 

POINT F0R W RECORD TYPE IF WTMK MACRO RATHER THAN ENDFILE MACRO IS USED 

(B0I V EOI 




BLOCK 



BLOCK 



BLOCK 



BLOCK 



i i 

I ! 



> ' ' -^ 



BLOCK 



BLOCK 



BLOCK 




5V 54 



42 



24 18 



"^-jao 



W CONTROL WORD 



EOP INDICATED 
BY WCW 



LOAD 
POINT 
(BOI)- 




B - SIJSSS.TEF W " THIS "-LUSTRATION APPLIES WHEN THE FORTRAN ENDFILE 
STATEMENTS, OR COMPASS ENDFILE MACRO IS USED. 

EOI 



BLOCK 



BLOCK 



BLOCK 



BLOCK 



BLOCK 



BLOCK 



BLOCK 



BLOCK 




47. 



04^,00 



17 



48-BIT APPENDAGE 



EOP INDICATED BY LEVEL I7 8 
APPENDAGE ON ZERO-LENGTH BLOCK 



C RECORD TYPES S AND Z WITH C BLOCKING. 
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Figure 5-4. End-Of- Partition on Blocked Magnetic Tap* 
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SECTIONS 

In file hierarchy (Figure 5-5), the section lies between the record and the partition. 
Thus, for the record types that support sections, records can be grouped into sections 
and sections into partitions. However, only the following file types can be divided into 
sections. 

W records whether blocked or unblocked 
Z records with C blocking 

On W records, an end-of-section is indicated in a W control word. On Z records with 
C blocking, an end-of-section is indicated by a short or zero-length block with a level 
0, 48-bit appendage. 

There is no vehicle for indicating end-of-section using any other record type. On S 
records, the level appendage indicates end-of-record. 

Figure 5-6 illustrates the relationship of S and Z records with C blocking. Note that 
the same file containing zero-byte delimiters can be defined as either S or Z records. 
The Z definition describes records, sections, and partitions; the S definition describes 
records and partitions. The zero bytes are not significant when the file is defined as 
S records. 

With respect to S records, an end-of-section is referred to as an end-of-record by 
earlier 6000 Series operating systems. Note, however, that although other operating 
systems may allow several levels of records (levels through 16 fi ), SCOPE 2 allows 
only one level (level 0). Levels through 16 g as they are used by 6000 SCOPE 3.x 
are converted to level by SCOPE 2. 

The FORTRAN and COBOL compiler languages have no counterpart to sections. There 
is no way of generating a section delimiter when using these languages. The situation 
could arise, however, where the user desires to have the FORTRAN or COBOL object- 
time program read a file that contains section delimiters. In particular, the user may 
want to read from the INPUT file, which conventionally uses end-of-section cards as 
separators in the deck. 

For this reason, the 7600 FORTRAN Extended and RUN object-time routines consider 
an EOS on INPUT as an EOP. If the routines encounter an EOS on any file other than 
INPUT, they do not upgrade the EOS to EOP; instead, it is ignored. This implementa- 
tion is consistent with object-time routines for 6000 SCOPE 3.x. 7600 SCOPE 1.1, 
however, always ignores the EOS for BCD files and considers it an EOP for binary files. 
Example 5-6 shows a FORTRAN program that illustrates how FORTRAN object-time 
routines handle an EOS encountered on a file other than input (in this case, TAPED. 
To change the job so that it reads from the INPUT file, remove the COPY statement 
and change the PROGRAM statement to: 

PROGRAM EOS (INPUT, OUTPUT, TAPE1=INPUT) 

When the EOS is recognized as an EOP, each section begins a new page of printout. 

The COBOL object-time routines make no distinction between the INPUT file and other 
files. If an EOS is encountered, it is always treated as an EOP. This implementation 
is consistent with 6000 SCOPE 3.4, but differs from 6000 SCOPE 3.3 and 7600 SCOPE 
1 implementation, which always ignores the level EOS. 
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Figure 5-5. File Hierarchy 
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0000 








0000 




0000 






0000 







z 



RECORD , « 



z 



END OF S- TYPE 
RECORD 



z 



10000 



0000 



0000 



0000 



0000 



C-TYPE BLOCK 
MBL CHARACTERS \ 



z 









0000 




0000 


LEVEL 





C-TYPE BLOCK 
MBL CHARACTERS 



SHORT BLOCK 




END OF 
Z -TYPE 
RECORD 



END OF SECTION 



A 



run qf RECORD- 
END OF PARTITION- 



I FVFI O 



LEVEL 17 



0000 



0000 



Z 



. C-TYPE BLOCK 
' MBL CHARACTERS 



z 



0000 / \ 

ZERO -LENGTH — »• 
ZERO - LENGTH — »- 



LEVEL 



LEVEL 17 



0000 



0000 



Z 



0000 



END OF SECTION 
■ END OF PARTITION 



END OF RECORD-*- 
END OF PARTITION-*- 







0000 






0000 


LEVEL 




LEVEL 17 







SHORT BLOCK 



ZERO -LENGTH BLOCK-*- 



LEVEL 



LEVEL 17 



■EOI- 






0000 



0000 



END OF SECTION 
END OF PARTITION 

2AXI5A 



Figure 5-6. Relationship of S and Z Records (C Blocking) 
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Example 5-6. FORTRAN Treatment of EOS on Input File 

Example 5-7 illustrates how COBOL object-time routines handle an EOS encountered on 
a file other than input (in this case, TAPED. To change the job so that it reads from 
the INPUT file, remove the COPY statement and change the file assignment from TAPE1 
to INPUT. When the EOS is recognized as an EOP, each section begins a new page of 
printout. 

Section delimiters can be generated through the COMPASS language WEOR macro. The 
macro is a no-op if it is used on a file type that does not support sections. There is 
no corresponding function in either the FORTRAN or COBOL languages. 

NOTE 

A WEOR on an S-type file should follow a partial 
write only. If it follows a full write, it causes a 
superfluous zero-length record. 
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CONTROL DATA 



COBOL CODING FORM 



JOB,CP70. 
COBCL(0=XM) 
COPYCINPUT, TAPED 
LGO, 
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Example 5-7. COBOL Treatment of EOS on Input File 
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ACCESS METHODS 

Another factor that the user must consider when using files is the file organization, 
sometimes referred to as access method. The three file organizations are sequential 
(SQ), word addressable (WA), and library (LB). Of these, the sequential organization 
is by far the most commonly used file organization. Library organization is primarily 
used by the operating system, itself, and has little application for the FORTRAN or 
COBOL programmer. 

The usual default for FORTRAN is sequential. However, a FORTRAN programmer can 
employ word addressable organization through use of the CALL READMS and CALL 
WRITMS statements. These are described in the FORTRAN RUN and FORTRAN Extended 
Reference Manuals. Any file accessed using READMS and WRITMS is automatically de- 
fined as word addressable. The user need not supply a FILE statement for the file. 
The index buffer is the last record in the file. 

The COBOL programmer can specify the type or organization used through the ORGANI- 
ZATION clause, as follows. 

ORGANIZATION IS SEQUENTIAL causes the file to be sequential (SQ). 

ORGANIZATION IS STANDARD causes the file to be a word addressable (WA) file 
compatible with that created with the FORTRAN mass storage routines. 

ORGANIZATION IS DIRECT also causes the file to be word addressable (WA) but the 
index is a different format. 

The ORGANIZATION clause can be omitted. When it is omitted, the file organization 
depends on the factors specified in Table 5-5. 

The selection of organization is made in the order shown. 



TABLE 5-5. COBOL DETERMINED FILE ORGANIZATION 



Order 


Condition 


Organization 


1. 

2. 
3. 

4. 


A suffix to implementor or name in ASSIGN 
clause 

ACTUAL /SYMBOLIC KEY clause specified 

ACTUAL KEY and/or FILE-LIMITS specified 

None of the above conditions exists 


Direct (WA) 

Standard (WA) 
Direct (WA) 
Sequential (SQ) 



Do not change the file organization through the FO parameter on the FILE statement to 
conflict with the organization defined for the object-time program. 

Only sequential files can be blocked. To save a file having some other file organization 
on magnetic tape, copy it to a tape. Then, when the tape is loaded, copy it to an 
unblocked file using the original file organization (see Section 10) before attempting to 
use the data. 
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FILE PROCESSING DIRECTION 

The processing direction allowed on a file, that is, whether the file is an input file 
permitting reads only, an output file permitting writes only, or an I/O file permitting 
either reads or writes, is determined by open requests issued by object time routines. 
The direction is maintained in a field in the FIT for the file. 

COBOL and FORTRAN object times routines and the SCOPE 2 copy routines usually open 
a file as input /output. A staged-in file is opened for input; a staged out file is opened 
for output. 

A parameter of the FILE statement permits a user to specify processing direction, but 
this parameter is very seldom needed for mass storage files and may conflict with the 
processing directions specified on open requests. If a conflict occurs, the open request 
takes precedence over the direction specified on the FILE control statement. 



(FILE (If n, . . . , PD=direction) 
Direction can be I for input, O for output, or I-O for input /output. 

FILE ERROR OPTIONS 

When the record manager encounters an error condition, it either terminates the job or 
attempts to continue program execution despite the error. The action taken depends on 
the setting of the error option (EO) field in the FIT and on the type of error. As will 
be shown, processing of read parity errors represents a special case. 

TERMINATION ON ANY ERROR 

By system default, the error option field is set for termination to occur upon encountering 
any record manager error. The FORTRAN compiler, however, generates a FIT with 
this field set for accept and display. The COBOL compiler sets the field for termination 
if the COBOL program does not contain a USE AFTER STANDARD ERROR PROCEDURE. 
When the ERROR PROCEDURE is present, the COBOL program sets the field for accept. 

To override the compiler setting or to explicitly set the error option for termination, 
use the EO=T parameter on the FILE statement. 



FILEQfn, ...,EO=T) 



ACCEPT ERROR 

Instead of job termination, the user or the compiler can specify that if an error occurs 
control passes to a user error processing routine, that is, to an error exit. This option 
can be taken only when the program includes an error routine; the error exit cannot be 
specified on a control statement. 

For errors other than read parity errors, the error status is indicated in the FIT and 
control passes to the user. For a read parity error, the record manager places the 
bad data in the user buffer and passes control to the user. 
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In addition to accepting the data, the user has the option of having it written on a file 
and automatically listed (displayed). 

To explicitly specify accept on an error condition, specify EO=A on the FILE statement 
as follows: 



f* 



FILE (If n, . . . ,EO=A) 



In Example 5-8, EO=A is specified on the FILE statement to override the FORTRAN- 
specified accept-and-display. 




Specifies accept 
but not display of 
bad data 



Example 5-8. Specifying Error Option as Accept With No Display 

DROP BAD DATA 

For a read parity error, the user has the added option of having the record manager 
attempt to skip the bad data and resume file processing with the next data known to be 
good. 

For a mass storage file, this means that all of the data in the sector on which a read 
parity error occurred is ignored. 

For a magnetic tape file, and in this case a staged tape file is considered a magnetic 
tape file, the procedure of dropping the data is much more complex. Depending on the 
record and block type, the record manager attempts to save as much data in the bad 
block as possible. For W records with I or C blocking, the record manager attempts 
to locate the next W control word in the bad block and to resume processing at that 
point. For K and E blocking, it positions the file at the beginning of the next good 
block. For F records with C blocking, it calculates the next record boundary in the 
next block. In all cases, an error severity level is set in the FIT for use by the 
error routine. 
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To specify that data is to be dropped, enter the EO=D parameter on the FILE statement. 
This also causes error conditions other than read parity to be accepted. 



i« 



"FILEdfn, ...,EO=D) 
This option requires the presence of an error routine. 

DISPLAY BAD DATA 

The programmer can specify when a read parity error occurs that the bad sector or 
block of data be written on a special list file which is automatically routed to the printer 
when the job ends. 

Displaying is possible regardless of whether the programmer requested termination, 
accept, or drop. 

To display bad data, append D to the EO parameters already described as follows: 

EO=TD Terminate job; write data on special file. 

EOAD Accept data; write data on special file. 

EO=DD Drop data; write data on special file. 
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This section describes how the user can access magnetic tape files directly using on-line 
magnetic tape units or indirectly using staged magnetic tape units. Use of tapes, staged 
or on-line, requires explicit action on the part of the user. Files are never assigned 
to tapes by default. As noted in Section 5, tape files are always blocked sequential 
format. The record manager assures this by selecting a default block type whenever 
the file is defined as a staged or on-line file. 

Tape labels, although mentioned in this section, are defined in Section 11. 

STAGING TAPES 

Staging is the practice of transferring all or part of a magnetic tape file to or from 
mass storage upon demand by the job. Staging isolates the CPU from the magnetic tape 
units so that more efficient CPU use can be achieved. 

Tape staging requires that the user insert a STAGE control statement before the job 
step that first uses the file. 



I OJ. J nVJ-Ll/Vl..l.i±, JJ.., \Jn> • • • » \J / auu 1 umuiJ\iiii, i uui , j;. , j^-i • • • » H / 

Parameters include the following: 

PRE or POST Specifies input (PRE) or output (POST) file 

MT or NT Specifies 7-track (MT) or 9-track (NT) unit 

PE, HY, HI, or LO Specifies density (PE or HY for 9-track unit and HY, HI, 

and LO for 7-track unit) 

VSN = vsn opeciiies voiume serial nurnuer 

In addition, the A, T, and U parameters described in Section 7 can appear on the 
STAGE statement to define mass storage characteristics such as maximum file size. 
If insufficient mass storage is allocated, the record manager issues the message MASS 
STORAGE EXCEEDED. If you receive this message, resubmit the job with An set to 
at least A2. The default is normally Al (2 MAU). 

For prestaging, the lfn parameter is required as a minimum. For post staging, the lfn 
and POST parameters are required. All optional parameters are order-independent. 

Staging does not occur at the time the STAGE statement is processed. The statement 
provides information to the record manager for future use. Multiple STAGE statements 
for a file are not allowed. 

Tape staging makes the practice of extending a tape file by first skipping the information 
already recorded and then adding new information at the end both inconvenient and dan- 
gerous. If an error occurs during the process of rewriting the tape, information accu- 
mulated by a previous run of the job is likely to be irretrievably lost. 
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PRESTAGING 

Prestaging is requested by default when neither PRE nor POST appears on the STAGE 
statement. Inclusion of the parameter PRE produces the same effect as when it is 
omitted. 

In Example 6-1, SOURCE is prestaged for use by the compiler. It consists of a single 
reel (volume). The staging takes place when the compiler attempts to read from file 
SOURCE. The job waits for the operator to mount the tape. It resumes processing upon 
completion of the prestage operation. 




Example 6-1. Prestaging an Unlabeled Tape 



POST-STAGING 

NOTE 

A file cannot be both prestaged and post-staged. 
Thus, a tape-to-tape copy of a staged file requires 
that the input file be prestaged and copied to another 
file which can then be post-staged. 

Post-staging is requested when POST appears on the STAGE statement. Upon job com- 
pletion or return/unload of the file, the file is transferred to a station where it is written 
on one or more volumes of magnetic tape. 

The operator is told to mount tapes as they are needed. For an unlabeled file, each 
volume is terminated by an end-of-information (double tapemark). A file cannot be both 
cataloged at the 6000/CYBER 70 Station and post-staged. 

If abnormal job termination occurs, the file will not be staged out if it has not been 
created or if the fatal error causing abnormal termination involved the file. 



A file is automatically rewound before it is post- staged, 
part of a file. 



There is no way to post-stage 
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Example 6-2 illustrates post-staging of TAPE1 to a 9-track tape unit (NT) at 1600 bpi 
(PE). The FILE statement describes TAPE1 as record type Z, block type C rather 
than the defaults of record type W, block type 1. 



CONTROL DATA 



FORTRAN CODING FORM 



jobsaH 
fitn. 

ILECIT 

TAGE 
LGO. 
WW 



,CP7 

APEi 
(TAPE 



0. 



,RT=Z,FL = 8|G,8T=C) 



i,NT,FE,PG 



ST) 



vp. column ont 
PROG 



PRIN 

FCR^AT (1H1) 



RAH CNE (I|NPUT,CUTPU 
T 5 



Fi le ts created 
by object program 



> 



Staging occurs 
at Job end 



T, TAPED 



\ 



Example 6-2. Post-Staging an Unlabeled Tape 



SPECIFYING TYPE OF TAPE UNIT 

Staged magnetic tape units can be either 7-track units, 9-track units, or a combination 
of units. 



NOTE 



iU~ i7fi11.11 Q, 



:rvice Station does not sui~>r>ort staged 



tape. The 7611-1 I/O Station supports 7-track units 
only. All other standard stations allow both types 
of units. Check with a systems analyst to determine 
what units are available. 

Tapes written on 7-track units cannot be read on 9-track units and vice versa. 

The presence of NT on a STAGE statement requests a 9-track unit. Otherwise, 
parameter is omitted or if MT is specified, a 7-track unit is used for staging. 
Example 6-2, file TAPE1 is post-staged to a 9-track unit. 



if the 
In 



SPECIFYING TAPE DENSITY 

When no density parameter is specified, the system assumes that the tape is to be read 
at 800 bits per inch or written at 800 bits per inch, regardless of whether the unit is 
7-track or 9-track. Inserting the parameter HY on a STAGE statement has the same 
effect. This default can be changed by the installation. 
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For 7-track magnetic tape units, 800 bits per inch is usually preferred. If the tape is 
of questionable quality, however, you may wish to write at a lower density. Similarly, 
you may wish to read tapes recorded at lower densities. 

For 9-track magnetic tape units, 1600 bits per inch is the preferred density. Table 
6-1 summarizes magnetic tape density parameters. See Example 6-2 for an example 
of use. 



TABLE 6-1. MAGNETIC TAPE DENSITY PARAMETERS 



Parameter 


7-Track 


9-Track 


LO 


200 bpi 


- 


HI 


556 bpi 


- 


HY 


800 bpi 


800 bpi 


PE 


- 


1600 bpi 



The density used for labels is not necessarily the same as that used for the data. On 
a 7-track input tape, when prestaging labeled magnetic tape files, if the system receives 
errors when reading the label at the density specified for labels (this density is set by 
the installation), it retries reading the label at other densities. It then uses the density 
specified in the label for reading the data. 

No retries at other densities occur for unlabeled tapes. 

IDENTIFYING THE STATION FOR STAGING 

By system default, the station that is used for staging is the station of job origin. If 
the job originates at a station that does not include magnetic tape units, or if the user 
desires to either read a tape or write a tape at some other station, he can include 
ST=gggttt on the STAGE statement. ggg identifies the station and ttt (optional) identifies 
a terminal of that station. 



' 



STAGE(lfn, . . . , ST=gggttt) 



The system waits indefinitely for the station to be logged in if the identifier is not 
recognized as a currently logged in station. 
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In Example 6-3, the 7611-1 I/O Station has been logged in as AAA and the 7611-2 Magne- 
tic Tape Station has been logged in as MTS. The 7611-1 operator is told to mount the 
Input tape IN for prestaging and the 7611-2 operator is told to mount the output tape 
OUT for post- staging. 



CONTROL DATA 



JCB,CP7Q. 

STAGE(IN,ST=AAA) 

STAGE<CUT,PCST,ST=PTS) 

FILE(IN,RT=U) 

FILE(OUT,RT=U> 

COPYUNjCUT) 

6/7/8/9 In column ont 



Example 6-3. Identifying the Station for Staging 



ru»BA/-TEB r^MVFDQirikl AKID PARITY 
v^nrtKAv, iuix \~\si ^ t uiw.v/. ,-...— 

On 7-track tapes, binary data is written in odd parity and coded data is written in even 
parity. On 9-track tapes, data is always written in odd parity, regardless of mode. 

The recording modes (binary and coded) are functions of the tape drivers. A user can 
select conversion mode only through parameters on the FILE statement or through a 
COMPASS language subroutine. The system default is binary mode because it is more 
efficient than coded mode, which requires character conversion. 

™— ^ m^v i^ncrth i« a n even number of words (a multiple of 120 bits) or an even 
^mb« ^ur4VMtsr"tVe"dIt"a"record8 are written without modification When the , bloc* 
length is an odd number of words, however, or an odd number plus 48 bits, the 9 track 
tape drTver must supply an extra 4 bits of padding to complete the last tape frame. 
When the tape is read, the record manager removes the padding. In general, the 
record manager removes any trailing bits that do not constitute a full 6-bit character. 

SCOPE 2 mode selection for FORTRAN I/O is not like previous systems which considered 
FORTRAN READ /WRITE statements as coded and allowed user specification ol mode on 
BUFFER IN /OUT statements. Specification of mode on BUFFER IN/OUT statements is 
ignored under SCOPE 2. READ /WRITE statements will handle either binary or coded 
tapes depending on the CM parameter on the FILE statement. Similarly, for copy rou- 
tines, the statements COPYBR/COPYBF and COPYCR/COPYCF, which implied binary 
or coded copies on previous systems, do not affect tape mode under SCOPE 2 (see 
Section 10). 

For a staged tape, conversion occurs at the station when the tape is prestaged or post- 
staged. ConveSin prohibits the occurrence of a double colon (12 bits of zero) in the 
coded record. Zero bytes are converted to blanks. For the same reason, do not 
attempt to convert W, Z, or S records. SCOPE 2 cannot read coded tapes in these 
record formats. 
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7-Track Conversion 

To select even parity, coded mode tape when using a 7-track magnetic tape unit, place 
the parameter CM=YES on the FILE statement. 



f 1 



FILE(lfn, . . .,CM=YES) 



The FILE statement must precede the job step that first uses the file. 

On output, CM=YES causes each binary 6 bits of data to be converted from display code 
to a 6-bit external BCD character (Appendix A) and recorded in even mode. On input, 
conversion from BCD to display takes place. 

In Example 6-4, TAPE1 is post-staged in even mode with code conversion from display 
code to 6-bit external BCD. 



CONTROL DATA 



FORTRAN CODING FORM 



klpBS 
TN. 
ILE 

TAGE 
HIGO. 
#S/9 



AM 



,CP70. 



AFE1 
TAPE 



!GR 

:m 



141 co4unut 
PRO 
PRI 
FCRK 
READ 



,RT=F,FL=6 
1,PCST) 



one 

AM CNE ( 
5 
AT (11-1) 

lGiJjEASE 



,CH=YES) 



IN 



PUT,CUTPl 
FIGHT, I 



Conversion occurs 
when tape fs 
post-staqed 



rj 



Example 6-4. 7-Track Code Conversion for Post-Staged Tape 
9-Track Conversion 

To select odd-parity coded-mode tape when using a 9-track magnetic tape unit, use 
CM=YES in the same way as for 7-track tape conversion. CM=YES on output causes 
each 6 bits of data to be converted from display code to an 8-bit system default (either 
ASCIIt or EBCDIC) and recorded in odd parity. ASCII conversion can be requested 
explicitly by placing US on the STAGE statement. 



^FILEdfn, CM=YES, . . . ) 
STAGEUfn, NT, PE, US, ... ) 



fANSI Standard X3.4-1968 American Standard Code for Information Interchange 
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As an alternative, you can convert to or from a 64-character EBCDIC character set by 
supplying the parameter EB in place of US on the STAGE statement for the file. This 
parameter is relevant for data conversion only when the FILE statement specifies 
CM = YES and the STAGE statement specifies NT. 



r 



r FILE(lfn, CM=YES, . . . ) 
STAGE(lfn, NT, PE, EB, . . . ) 



On input, any lowercase letter is converted to uppercase. Any other character not in 
the 63 -character subset is interpreted as a blank. 

In Example 6-5, the sample program, writes TAPE1 on a 9-track tape with conversion 
from display code to EBCDIC code. 



FORTRAN CODING FORM 



J08SA 
FTN. 
FJILE ( 
TAGE 
tLGO. 
7 '8/9 



MUCP7 

TjAFEl 

(RAPE 



0. 



,RT = F,FL = fl|0,Ctf=YES> 
i,NT,FE,EP 



coqmn one 
'RCG 
■RIN 

CRKAT (1H1) 

E A 





Specifies character! 
conversion I 



RAM ONE (I|NPUT,GUTFUfT,T/!PEl) 
T 5 



specifies 
conversion to EBCDIC 



Example 6-5. 9-Track Code Conversion for Post-Staged Tape 



STAGING ALL OR PART OF FILES 

The user can choose how much of his tape file is to be prestaged at a time. This 
affects how much of the file is concurrently accessible by the program. 

The options available to the programmer are: 

1. Stage-by-volume which permits an ordered progression of labeled reels (volumes) 
to be automatically prestaged upon completion of the previous volume. 

2. Stage- by-partial volume, which permits a selected portion of a single unlabeled 
volume to be prestaged, and 

3. Stage-by-file, which permits all volumes to be prestaged upon the first use of the 
file, and for the entire file to be on mass storage at the same time. 
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Stage by Volume 

The system default causes a labeled file to be staged in a reel at a time. Each reel is 
called a volume. The first time the user program attempts to read the file, the record 
manager sends a message to the operator to mount the first volume of the file to be 
staged. When the operator has complied with the request, the system transfers the first 
or only volume to mass storage. Upon completion of the transfer, the job can begin 
processing the data on the mass storage copy of the file. When the program encounters 
the end-of-volume label, the record manager requests staging of the next volume and 
the process is repeated. Each staged volume overwrites the previous volume on mass 
storage. Staging of labeled multifile volumes is not possible. 

For an unlabeled tape file, automatic volume switching does not take place. To the 
FORTRAN and COBOL user, this means that unlabeled tape files that exceed one volume 
should be staged by file, not by volume. Note, however, that if a COBOL programmer 
knows exactly how much data is on each volume, he can control volume switching within 
his program by using CLOSE REEL. 

When a file is staged by volume, a rewind positions the file to the beginning of the first 
volume. The operator is told to remount the first volume. This allows multiple passes 
on a staged file. Backspacing or skipping backwards will not produce the same effect. 
You cannot backspace across volume boundaries. 

End-of-volume on an unlabeled tape file created under SCOPE 2 consists of a double 
tapemark; it is the same as an end-of-information. Unlabeled volumes created under 
6000 SCOPE are terminated by the end-of-volume label. Automatic volume switching is 
possible when using these tapes. 

Using Volume Serial Numbers for Prestaging 

When tapes are staged, the operator is told to mount a volume identified according to a 
volume serial number (vsn). The significance of the vsn differs for labeled and unlabeled 
tapes. 

Unlabeled Tapes 

In the case of unlabeled tape volumes, the vsn usually refers to a visual identifier manu- 
ally provided in a sticker on the tape reel. It is provided primarily as an aid to the 
operator for locating the correct volume. As will be described later, it has additional 
significance when stage-by-file is requested. 

When no VSN parameter is provided on the STAGE statement, the system uses SCRTCH 
as the vsn. To specify a vsn other than SCRTCH, use the following format: 



(• 



STAGE (lfn, . . . , VSlNNvsr^/vsn /. . . /vsn n ) 



vsn. is a 1 to 6 alphanumeric character identifier to aid the operator in locating the 
correct tape. 

Labeled Tapes 

For a labeled tape volume, the vsn refers to both the external sticker of a reel and the 
contents of a field in the HDR1 label (see Section 11). When no VSN parameter is sup- 
plied on the STAGE statement, the contents of the vsn field in the HDR1 label for the 
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volume is checked against blanks. If the field contains other than blanks, an error 
message is issued saying that no vsn was specified on the STAGE statement. The VSN 
parameter must correctly list each of the vsn's for the volumes in the tape file. Other- 
wise, the operator must mount the correct tape or give permission to use the mounted 
tape. 



fSTAGEttfn, . . . , VSN^sn^vsn^. .. /vsn n , E) 

Each vsn is a 1 to 6 character identifier matching the vsn used when the file was 
created. E indicates that a label exists (see Section 11). 

Remember that the list must be long enough to encompass all the volumes of a file. 
In Example 6-6, TAPE1 is an unlabeled tape identified by vsn DAC: TAPE2 is a multi- 
volume labeled tape identified by vsn's JRV1, JRV2, JRV3, and JRV4. 



CONTROL DATA 



COBOL CODING FORM 



<TA 



jce,cp|7 

COBGL. 
STAGE (|T 
STAGE 
LGO. 
7/S/9 

(C 
6/7/8/9 



A.X 



0. 



APE 
PE 



CBCL 
in 



Record and block type 
determined by COBOL 
source program 



1,VSN=DAC) 
2,VSN=JRV1/JRV2/JFV3/JRVA,E) 



I 



column om 

SOURCE PSCGFAM) 

dotumn one. 



MI 



Indicates label 
exists for TAPE2 




Example 6-6. Prestaging Using Volume Serial Numbers 



Staging of Partial Volumes 

The VSN parameter has an alternate application that allows portions of a volume to be 
staged. This feature is particularly convenient for a file that lacks a standard end- of - 
information. Partial staging should also be used when several partitions of a multi- 
partition tape file are to be processed or whenever several blocks of a large file are 
to be processed. Using partial staging increases throughput by decreasing mass storage 
requirements and staging time. 

Only unlabeled tape files can make use of this feature and only portions of one volume 
can be staged. 

The user has the choice of staging a partial volume by blocks or by tapemarks. 



60372600 A 



6-9 



Prestaging by Blocks 

To stage by blocks, use a VSN parameter with the following format: 

VSN-$vsn/B/n/m$ 

vsn is the volume serial number (1 to 6 characters). B indicates blocks. n is the 
decimal count of blocks to be skipped before staging is to commence. If n is omitted, 
staging begins at the first block. For example, if the sixth block is the first block 
desired, set n to 5. The m parameter is the decimal count of blocks to be prestaged. 
If m is omitted, staging terminates when a tapemark is encountered. 

Example 6-7 illustrates partial staging of a volume by blocks. In this example, the 
contents of blocks 101 through 110 (640 records) are copied to OUTPUT. 



JO0,CP7O. 

FILE(SAHPLE,RT = F,RB = 6*j,FL=8l],Cr' = YES) 
STAGE (SAfPLE,VS!v = $CATA/e/ll]C/lG2) 
COPYSP(SAPPLE) 4 
6/7/S/9 in column onz • *- 



Transfers 10 blocks 
start inq with block 
101 on reel DATA 



Example 6-7. Partial Staging by Blocks 
Prestaging by Tapemarks 
To stage by tapemarks, use a VSN parameter with the following format. 

VSN=$vsn/F/n/m$ 

In this case, F indicates tapemarks. The parameter is a count of partitions on files 
with record type F, D, R, T, U, or Z with K or E blocking. For record types W, 
X, S, and Z with C blocking, tapemarks do not normally occur within the file. 

The n parameter is the number of tapemarks to be skipped before staging can begin, 
m is the number of tapemarks to be prestaged. 
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In Example 6-8, file ASCII does not have a standard EOI but terminates with a single 
tapemark. It is successfully staged in by specifying staging of one tapemark. 



CONTROL DATA 



FORTRAN CODING FORM 



J0B,C 

FTN. 

SITAGE 
ILE< 
GO - 

7I/S/9 



70. 



ASCI 
SCII 



I,VSN=*DAC 
,RT=R,RMK= 



/F//1S) 
77B,BT=C) 



tk cowmn one. 
PRCGlRAfc ASCII 



Indicates staging 
by tapemarks 



} 



(INPUT, CUT 




Example 6-8. Partial Staging by Tapemark 

Stage by File 

Sometimes a user must have all volumes of a labeled tape file on mass storage concur- 
rently To that multiple passes over the data are possible and so that the file can be 
repositioned meaningfully. 

Specification of SF causes prestaging of the entire file rather than a single volume when 
the file is first opened. SF applies only for prestaging. 



STAGE(lfn, ...,SF) 



If vsn's are specified, remember that you must list all vsn's comprising the multivolume 
file, 

Bv usine stage-by-file, it is possible to prestage a multivolume unlabeled tape file. 
Volume? arfstag^d in until the list of vsn's is exhausted or until the mass storage limit 
is reached. 
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In Example 6-9, FN1 is a 3 -volume unlabeled tape created under SCOPE 2. 



CONTROL DATA 



COBOL CODING FORM 



J08,CP7Q. 
COBOL. 

STAGE(FM,SF,VSN = l/2/3> 

LGO. 

7/8/9 i.n column one. 

(CCGCL SOURCE) 
6/7/8/9 In column ont 



Operator js told to 
mount volumes 1,2, 
and 3 




Example 6-9. Staging Entire File 



Using Volume Serial Numbers for Post-Staging 

When post-staging a tape file, you have the option of specifying a vsn. As for prestaging, 
the vsn when used for unlabeled tapes merely serves to identify the reel to be mounted 
by the operator. For labeled tapes, however, it results in an identifier being placed in 
a field in the HDR1 label. 

For unlabeled tapes, when no VSN parameter is provided, the system uses SCRTCH for 
all volumes. For labeled tapes, when no VSN parameter is provided, a vsn is requested 
from the operator. The vsn supplied by the operator is then written in the vsn field in 
the HDR1 label. 

To supply vsn's, use a parameter with the following format: 

VSN=vsn 1 /vsn„/vsn /. . . /vsn 
i £ 6 n 

For a labeled tape, be sure that there are enough vsn's specified for all volumes of the 
post-staged file. Otherwise, if the list is exhausted before the end-of-information is 
reached, the last volumes of the file will be created with operator supplied vsn's. 

USING ON-LINE TAPES 

Use of on-line magnetic tape units requires scheduling of the tape units on the job iden- 
tification statement and insertion of a REQUEST statement prior to the job step using 
the unit. 

NOTE 

REQUEST statements for SCOPE 2 are not compa- 
tible with REQUEST statements for SCOPE 3.x. 
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SCHEDULING ON-LINE TAPE UNITS 

To acquire on-line tape units, place one or both of the following parameters on your 
job identification statement. 

MTd to schedule d 7-track units 

NTd to schedule d 9-track units 

In either case, d is a one or two digit octal number specifying the maximum number 
of units of each type that your job can use concurrently. When neither parameter is 
present, the job cannot use on-line tape units. 



jobname, . . . , MTd, NTd. 



The scheduling parameter does not cause the units to be assigned to the job. Your job 
will not be assigned the units or be charged for their use until they are requested by 
the job. 

REQUESTING ON-LINE TAPE UNITS 

Place a REQUEST statement before the job step that requires the on-line tape file. 



I DT?nTTT?CT/lfTi ^ J - ) 

I j.\,jjjvc^«_i J-Jk_> J- \ii"j T\r r P' • • • / 

I 
The MT or NT parameters must be present to distinguish the REQUEST from a mass 
storage REQUEST. MT requests a 7-track unit; NT requests a 9-track unit. 

A new request may be issued for a file after the previously requested file has been 
unloaded. Otherwise, multiple REQUEST statements are not allowed for a file. A 
STAGE statement and a REQUEST statement cannot be used concurrently for the same 
file. 
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Example 6-10 illustrates a job that uses a 7-track unit and two 9-track units. 



CONTROL DATA 



JO8,CP70,NT2,MTl? 

REQUEST(CLOPL,MT) 

FILE(CLCPL,RT=S,MRL=2 00Q) 

UPDATECG) 

RETURN (OLDPL) 

FTN(I=CCKPILE) 

RETURN<COMPILE) 

REQUES7(T/JPEi,Nn 

REQUEST(TAPE2,NT) 

LGO. 

7/S/9 i^ss^umn one. 

(UPDATr^fi^T) 
6/7/S/1 in. MtuumotiSr 



Schedules two 9- 
track units and one 
7-track unit for 
the Job 



UPDATE uses one 
7-track unit 



Fo I lowing RETURN, 
job can no longer 
request 7-track 
unit 



Object program uses 
two 9-track units 



Example 6-10. Scheduling and Requesting On-Line Tape Units 

SPECIFYING TAPE DENSITY FOR ON-LINE TAPES 

Tape density parameters serve the same purpose for on-line tapes as they do for staged 
tapes. See page 6-4. * 

CHARACTER CONVERSION AND PARITY 

Character conversion for on-line tapes follows the same conversions as for staged tapes 
For on-line tapes, however, the tape driver performs conversion on each physical read ' 
or write of the tape. See page 6-6. 
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Example 6-11 illustrates use of a 9-track on-line tape with conversion to EBCDIC code. 



CONTROL DATA 



FORTRAN CODING FORM 



JCeSAJM 
TN. 
ILE( 



REQlE|S|TUA|PEi,NT,PE, 
LGO. 



,CP7 



TAPE! 



7VS/9 




100 



kJL 



FRGG 
PRIN 



FORMAT (1H1) 



0,NTi 



,RT=F,FL=8 



cjolxtm ont 



READ 
FORM 
IF ( 
IF ( 



RAH ONE tlfiP 
T 5 



100, EASE, 

ATC2F10.2I 

I.GT.O) GC 

EASE.LE.O) 
IF (HEIGHT. LE.J3) GO TC 1JD5 
30 TO 106 





3 



Schedules 9-track 
tape unit 






Specifies conversion 



I 



Specifies use 
of EBCDIC 



Example 6-11. 9-Track Code Conversion for On-Line Input Tape 
POSITIONING ON-LINE MAGNETIC TAPE FILES 

re-request the first volume. 

Similarly, you cannot backspace or skip backward across volume boundaries. 

wv, er , n m , P c«in ff thP file in the forward direction, upon encountering end-of-volume on 
the currenrreel, The "system rewinds and unloads the reel and issues a request to tne 
operator to mount the next volume. 

The VF oarameter on the FILE statement allows a user to override the system default. 
VF rIque P stsThat ^he volume be simply rewound, or neither rewound nor unloaded when 
end-of-volume is reached. 



FILE(lfn, ...,VF=x) 



Use VF=R to specify rewind and use VF=N to specify no rewind, 
the system default which specifies rewind and unload. 



VF=U is the same as 
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USING VOLUME SERIAL NUMBERS WITH ON-LINE TAPES 

Volume serial numbers serve the same purpose for on-line tapes as for staged tapes 
That is, for unlabeled tapes, they serve to aid the operator in identifying the reel to' 
be mounted and for labeled tapes they aid in checking or creating the vsn field of the 
HDR1 labels (Section 11). 

The parameter has the same form as for staged tapes. 

VSN=vsn 1 /vsn /vsn /. . . /vsn 
1^3 n 

However, the alternate form of vsn allowed for partial prestaging (VSN=$vsn/t/n/m$) 
has no application for on-line tapes. 

MOUNT OPTION 

To reduce the time required for operator intervention on multivolume files, you can 
specify M2 to request that two tape volumes be mounted concurrently. The system 
alternately accesses volumes from the two units. 



| REQUEST(lfn, ^, M2, . . . ) 



When using this parameter, schedule enough tape units of the required type on your job 
identification statement. Remember that you will be charged for both units until you 
return the file. When the parameter is omitted or specified as Ml, only one volume 
can be mounted at a time. The only allowable forms of the parameter are Ml and M2. 

SUPPRESSING READ— AHEAD/ WRITE— BEHIND 

Usually, the record manager remains a step ahead of the user when he is reading or 
writing an on-line tape. That is, if your job reads an on-line tape, the record manager 
acquires the next block and places it in an LCM buffer before it is requested. If your 
job is writing an on-line tape, the record manager lags the write request by at least 
one block. This technique, sometimes called multiple buffering, requires additional 
buffer space in LCM, but expedites processing when the tape is being read sequentially 
Multiple buffering may not be desirable when the job is not accessing the tape file sequen- 
tially or is frequently repositioning the file. You might prefer to reduce LCM require- 
ments by suppressing the read-ahead/write-behind processing. 

To suppress the read-ahead/write-behind processing and cause system reads and writes 
to be synchronized with those in your program, place the SPR=YES parameter on the 
FILE statement for the file. 



FILE(lfn, ...,SPR=YES) 



If the parameter is omitted or if SPR=NO is used instead, normal read-ahead/write- 
behind processing takes place. 
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UNLOADING/RETURNING ON— LINE MAGNETIC TAPE UNITS 

Occasionally, you may want to rewind and unload an on-line magnetic tape file before 
the job has completed processing. To do this without reducing the number of tape units 
scheduled for your job on the job identification statement, use the UNLOAD statement. 



UNLOAD(lfn r lfn 2 , . . . ,lfn n ) 



Suppose that at least one of the lfn's is the name of an on-line magnetic tape file. 
Following the UNLOAD, your job can use a REQUEST statement to acquire the magnetic 
tape unit for a different file. 

Do not use UNLOAD if the job no longer has a need for the units on which the files are 
mounted. Use RETURN, instead. 



RETURN (If i^, lfn 2 , . . . , lfn R ) 



While both RETURN and UNLOAD reduce the number of active tape units assigned to your 
job, RETURN is preferable because it reduces the needs of the job and may allow it to 
complete processing sooner. 

In either case, returning or unloading the file causes the file to be detached from your 
job. If you UNLOAD your unit and your job is not the job with the lowest tape unit 
requirements, the unit may be reassigned to another job. 

Example 6-10 illustrates a job that returns a 7-track tape unit to the system. Note that 
the job identification statement has a request for one 7-track unit and two 9-track units. 
Following the RETURN, only 9-track units can be used by the job. 

MAGNETIC TAPE RECOVERY PROCEDURES 

The action taken by the tape driver when it encounters a parity error on a read or write 
is called a recovery procedure. The procedures are different for each station and for 
on-line tapes. 

STANDARD RECOVERY PROCEDURES 

Procedures for on-line tapes and the 6000 Station generally follow the CDC Magnetic 
Tape Error Recovery Standard 1.87.004. The 7611-1 I/O Station does not follow these 
standards. The 7611-2 Magnetic Tape Station procedures deviate from the standard, 
especially in the area of system noise blocks. (See the 7611-2 Operator's /Reference 
Manual.) No recovery is attempted by the 7611-1 I/O Station. 

If recovery is not possible, the operator is given control to retry the procedures, to 
accept the data, or to terminate the job. 

Specifying No Recovery 

On a tape read parity error, under some conditions the user may elect to accept the 
bad block. When reducing analog data, for example, the presence of a bad block may 
not adversely affect the results. 
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Place NR on the STAGE or REQUEST statement to notify the driver that it is not to 
attempt recovery of a read parity error but is to pass the data to the CPU. 



< 



REQUEST(lfn, ...,NR) 



or 



<" 



STAGE(lfn, ... ,NR) 



If NR is specified or if the operator has authorized continued processing, the action 
taken by the record manager when it encounters the read parity error depends on the 
setting of the error option (EO) field in the FIT for the file as described in Section 5. 

In Example 6-12, NR is specified on the STAGE statement and EO=A is specified on the 
FILE statement. 



FORTRAN CODING FORM 



jbe,cp|7Q. 

FTN. 
STAGE 
FIL£( 
LABEL 

LGO. 



TAPE 
APEi 



1,NT,NR,VS 
,E0=A,CM=Y 



TAPE1,R,L^ 



7][8/9 \0[i column one. 

IF 
6^7/8/9 



(tFICKTR 



In cbtumn one. 




Specifies 
no recovery 



See Section 1 1 for 
label handling 

I 



Spec! f les accept 
but not display 
of bad data 



Example 6-12. No Recovery and Accept Data Options 

Noise Blocks 

NOTE 

A tape written using standard error recovery proce- 
dures may not be acceptable for input at a station 
such as the 7611-1 because of the presence of system 
noise blocks. Similarly, a data tape prepared on 
some other computer system could have valid blocks 
composed of 8 or less characters. When standard 
recovery is used these short blocks will be assumed 
to be noise blocks and will be filtered out of the data. 



When standard error recovery procedures are in effect, blocks less than a specified 
minimum are considered noise and are not passed to the CPU. For 7-track tapes, 
blocks shorter than 8 characters are considered noise; for 9-track tapes, blocks shorter 
than 6 characters are considered noise. 

If noise blocks are not removed from the file by a station, they are passed to the CPU. 
The record manager attempts to read them as if they were good data. 
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MASS STORAGE FILES 



The only storage and peripheral devices that your program can directly access are system 
mass storage devices and on-line tape units. This section describes how space is allo- 
cated on system mass storage. 

System mass storage offers efficient, easy-to-use, data storage capacity. The only 
mass storage device currently available is the 7638 Disk Storage Subsystem. These are 
nonremovable disk files. This section will be expanded as other devices are added to 
the system. 

HOW MASS STORAGE FILES ORIGINATE 

An output file referenced by your job is assigned to system mass storage unless you 
explicitly define the file as being an on-line magnetic tape file. That is, the system 
default always assigns an output file to mass storage. Subsequently, a 30b can use the 
mass storage file in any of the following ways: 

1 It can use the file as a temporary scratch file that provides input to the same 
program or to some later job step and is then released. The LGO file is a 
very common example of a scratch file. 

2. The job can use the file as a scratch file and then catalog it as a permanent 
file before job end. 

3 The job can post-stage the file to magnetic tape. In this case, the STAGE state- 
ment requesting post-staging must precede the first reference to the file. 

4, The job can route the file to a printer or punch. 
SCOPE 2 assigns mass storage and associated LCM buffers to the file before writing 

~ „ + u ~ e a 1 ^ 

Uil LliC inc. 

Similarly, an input file referenced by your job is assumed by the system to be on mass 
storage unless your job has explicitly defined the file as being an on-line magnetic tape 
file. The file may have originated in one of the following ways: 

1. It may have originated from punched cards read in as the INPUT portion of the 
job deck. 

2 It may be a prestaged magnetic tape file. The STAGE statement describing the 
file as prestaged must precede the first reference to the file. The first attempt 
to open the file causes all or part of the file to be transferred from the station 
to mass storage. 

3 The input file may be a permanent mass storage file. In this case, an ATTACH 
' statement precedes the first use of the file. For a CYBER 70/6000 Station 

permanent file, the first attempt to open the file for input causes the file to be 
transferred from the station to SCOPE 2 mass storage. 

4. The file may be a scratch file created earlier in the same job. 
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INTRODUCTION TO REQUEST STATEMENT 

When a file is on mass storage, the user has the option of supplying a REQUEST state- 
ment to define characteristics relating to mass storage usage. The REQUEST statement 
differs from that for on-line magnetic tapes in that no device type is specified The 
control statement has the following format: 



^REQUEST(lfn,p r p 2 ,p n ) 



^1 
An 
Tn 
Un 
WCK 



Significance 

Allocation unit 

Transfer unit size 

Mass storage unit assignment 

Write check 



The preceding parameters, which can be in any order, are described in greater detail 
later in this section. s 

The same parameters that appear on a mass storage REQUEST statement can al^o 

T P h P . ea ^on^4 TA , G f Stat6ment ^ aff6Ct the maSS St0 ^ allocated for the fUe ° 
The REQUEST statements and STAGE statements are mutually exclusive that is 
you cannot use both statements for a file. 

The FILE statements and REQUEST statements are complementary, however and often 
appear together for a file. They can be in any order but the REQUEST statement must 
be m the job control section before the program that first accesses the file. Example 
7-1 illustrates REQUEST statement placement. 

NOTE 

Multiple REQUEST statements are not allowed 
for a file. 



FORTRAN CODING 



JDBSAM 
f TN. 
REQUE 
LGO. 

DESPOlS 




,CP7 
T(TAPEl7wCK,T,Ll) 



REQUEST precedes 
first use of TAPE! 



TAPE I Is a mass 
storage f i le used 
by object program 




Example 7-1. REQUEST Statement Placement 
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ASSIGNMENT OF SPACE ON MASS STORAGE 

The record manager assigns space to a mass storage output file as needed. Through 
parameters of the REQUEST statement, the user can control the size of the transfers 
and the amount of mass storage allocated on each mass storage assignment. The user 
can also specify that the file be assigned to a specific mass storage unit. 

MINIMUM ALLOCATION UNITS 

The unit of storage used for assignment of mass storage is called a minimum allocation 
unit (MAU) (see Figure 7-1). An MAU consists of 25,600 characters (five sectors on 
the 7638 Disk Storage Subsystem). 



25,600 CHARACTERS 
(5 SECTORS) 



2AXI6A 



Figure 7-1. Minimum Allocation Unit 

The first time a file is opened, one or more contiguous MAUs are allocated to it. 
More space is allocated as it is used. The number of MAUs assigned at a time is 
determined by the following factors: 

1. For the INPUT file and permanent files attached from the 6000 /CYBER 70 
Station, the number of MAUs is determined by an installation option. 

2. The number of MAUs can be specified through use of an An parameter on a 
REQUEST statement or STAGE statement. 




pREQUESTdfn, . . . , An) or f STAGE(lfn, . . . , An) 

3. The number of MAUs can be set by system default if no An parameter is spe- 
cified. The default is normally set for one unit. 

As shown in Table 7-1 and Figure 7-2, the number of units allocated increases as an 
exponent of 2 as you increase n. The allocation parameter impacts the maximum size 
allowed for a file because SCOPE 2 allows space to be allocated a maximum of 1012 
times. (The limit is imposed by the size of a table which has a maximum of 1012 
entries. ) 
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TABLE 7-1. RELATION OF ALLOCATION PARAMETER TO FILE SIZE 





ALLOCATION SIZE 


MAXIMUM FILE SIZE 


An 


MAUs 


Sectors 


Tracks 


Characters 


Sectors 


Tracks 


Characters 


AO 


1 




5 


1/8 


25,600 


5060 


126.5 


25,907,200 


Al 


2 




10 


1/4 


51,200 


10, 120 


253 


51,814,400 


A2 


4 




20 


1/2 


102,400 


20,240 


506 


103,628,800 


A3 


8 




40 


1 


204,800 


40,480 


1012 


207,257,600 


A4 


16 




80 


2 


409,600 


80,960 


2024 


414,515,200 




AO 







Al 



A2 



A3 



A4 



2AXI7A 



Figure 7-2. MAUs Assigned as a Result of Allocation Parameter 

When specifying the An parameter, keep in mind that your job is charged for all allocated 
mass storage. Thus, if An is very large, and you use but a small portion of the last 
set of MAUs allocated, you will be charged for a great deal of unused space. This con- 
dition is even more undesirable when applied to a permanent file because the wasted 
space is tied up indefinitely. 
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Example 7-2 shows a REQUEST statement for a FORTRAN output file (TAPE 5) which the 
user knows is going to be very large. 




Example 7-2. Using the REQUEST Statement Allocation Parameter 



Example 7-3 shows a tape-to-tape copy of a full 2400-foot reel at 800 bits per inch. 
If A0 were used as the An parameter for the post-staged file, the file could be staged 
in but not staged out since A0 is not adequate for containing a full reel of tape. 



UOa,CP70. 

FILE(CNE,RT=U) 

FILE(TfcC,RT = U>- 

5TAGE<CNE,A1) 

STAGE(TWC,PCST,A1) 

CCPYCONE.TKC) 

6/7/8/9 In column ont 



System uses A I 
for mass storage 
a I location 



If A0 were specif led] 
copy would abort 
with message MASS 
STORAGE EXCEEDED 




Example 7-3. Using the STAGE Statement Allocation Parameter 
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TRANSFER UNIT SIZE 

The user can specify the size of the LCM buffer for a mass storage file. He does this 
by specifying the Tn parameter on the REQUEST statement where n is omitted or is 1 
to 4. The smallest unit that can be requested is one sector; the largest is 80 sectors. 
The allocation parameter (An) affects the size you can specify for Tn because the amount 
of data transferred cannot exceed the amount of space allocated at a time. However, 
less data can be transferred and you can reduce your LCM requirements by specifying 
a transfer unit smaller than the number of allocation units. 



'REQUEST (If n, 


. ..,Tn) 


Transfer 


Buffer Area in 


Parameter 


Characters 


T 


5, 120 | 


TO 


25,600 J 


Tl 


51,200 


T2 


102,400 


T3 


204,800 


T4 


409,600 



Allocation can be A0, Al, A2, A3, or A4 

Allocation can be Al, A2, A3, or A4 
Allocation can be A2, A3, or A4 
Allocation can be A3 or A4 
Allocation must be A4 

If no Tn parameter is specified, the system uses the An parameter as the default for 
the Tn parameter. In this case, the LCM buffer size is equal to the sum of the MAUs 
allocated at a time. Space is allocated for each mass storage transfer. This relation- 
ship is shown in Table 7-2 and Figure 7-3. 

TABLE 7-2. RELATIONSHIP OF AN AND TN PARAMETERS 



^^^^ Tn 
An ^-"--•^^ 


T 


TO 


Tl 


T2 


T3 


T4 


A0 


5120 


25,600 










Al 


5120 


25,600 


51,200 








A2 


5120 


25,600 


51,200 
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Figure 7-3. Relationship of MAUs and Transfer Unit Size 
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The An and Tn parameters must be considered on ah input file as well as an output 
file. For a permanent file attached from SCOPE 2 mass storage, Tn cannot be set 
larger than the allocation parameter used when the file was created. The An parameter 
must be the same as when the file was created. If the allocation parameter is not 
readily known, it may have to be obtained by trial and error. However, the system 
default is usually adequate. 

For the INPUT file and permanent files attached from the 6000 /CYBER 70 Station, the 
transfer unit size equals the allocation units size defined by system default. 

Usually, the system default (A0, TO) is the most efficient. The Tn parameter can also 
be used on a STAGE statement for a staged file. Referring back to Example 7-3, the 
transfer unit size for both files ONE and TWO is two MAUs by default. 

In Example 7-4, notice that there is a REQUEST statement for TAPE1. 



1 



CONTROL DATA 



FORTRAN CODING FORM 



JOB5flj^,CP7|0. 

FTN. 

REQtE|S|T<TAjPEl,T) 

LGO. 

CATAL0G(TA|P 

7 f &/9 m coamn 



5 

10 

100 



GR 



PRC 

PRI 

FORM 

READ 

FCRM 

IF 

IF 

IF 

GO 



NT 



Ei,MYFILE 

one. 
AM GhE <U 
5 
AT (1H1) 

100, EASE, 
ATC2F10.2I 
I.GT.O) GC 
EASE.LE.0) 
HEIGHT. LE. 
106 




A| location unit size 
is system default. 
Transfer unit size 
Is 5120 characters 



,IC=J«R,TK 
NPUT,CUTPU 



V.QOF) 
T, TAPED 




HEIGHT, I 
1) 

TO 120 

GC TC 105 
0) GO TC 



Example 7-4. Using the REQUEST Statement Transfer Unit Parameter 



MASS STORAGE UNIT ASSIGNMENT 

The Un parameter (where n is an octal unit number) on the REQUEST statement is pro- 
vided in the event that a user wishes his mass storage file assigned to a particular 
mass storage unit. 



(- 



REQUEST(lfn, .. .,Un) 



If the 7638 Advanced Disk Subsystems are installed so that they are not all the same 
speeds, you may want to explicitly request the higher speed unit. Some installations 
may also prefer that certain types of files (for example, permanent files) be directed 
to a specific unit. 
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Unit number assignments and default assignments are installation dependent and will vary 
from site to site. Generally, a systems analyst can tell you assignments at your site. 
If the specified unit is not available, the job aborts. 

The Un parameter can also be used on a STAGE statement. 

WRITE CHECK OPTION 

An option of the REQUEST statement permits a user to request that the record manager 
follow each write with a read. If the read fails, the record manager aborts the job. 
The feature provides slower I/O but reduces the possibility of wasting a great deal of 
time in generating a bad file. 

To specify write check, include WCK in the parameter list for the REQUEST statement 
for the file. 







REQUEST(lfn, . . . , WCK) 



Example 7-5 illustrates a FORTRAN program that uses WCK on file TAPE1. Here, use 
of WCK could prevent cataloging of a useless file. There is no way to recover the file 
following the abort. 



CONTROL DATA 



FORTRAN CODING FORM 




,CP7 



3 



AFEi,RT=F, 
T(TAPEi,A4 

GCTAPE1,MY 

JU flnftttm 6yi&\ 

™ ROGRAM 

RINT 5 

FORMAT (1H 

READ 100,6 

FCRMATC2F1 

IF (I.GT.fl 



FL=fiO) 
,WCK,T2) 



REQUEST and FILE can 
be in any order but 
both must precede 
use of file TAPE! 



FILEtID=JV|R,TK = K3G>F 
(INPUT, duiPUT, TAPE 




\ 



Example 7-5. Use of the REQUEST Statement Write Check Parameter 

WCK is also allowed on a post-stage STAGE statement. This feature allows mass storage 
errors to be detected as the file is written rather than later when the completed file is 
to be staged out. 
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RETURNING MASS STORAGE FILES 

You can cause one or more files and their resources to be returned to the system by- 
using a RETURN statement. Reasons for doing so include the following: 

1. Receive a partial output of a very large file 

2. Assure that output is not lost if an abort occurs later in the job 

3. Reduce resources used by the job, thus reducing job cost and promoting efficient 
use of system resources 

4. Post a dependency (TRANSF) 

5. Close a blocked permanent file and reattach it with some other description 

INPUT is the only file that cannot be returned. 
Use a RETURN statement, as follows: 



r 



RETURN (lfn x , If n 2 , If n 3 , . ..,lfn ) 



Returning a scratch file causes its mass storage space to be released. Returning an 
implicitly disposed file (for example, OUTPUT, PUNCH, or PUNCHB) causes the accu- 
mulated data to be disposed. If the file is reopened, a file with the same name and 
disposition code becomes available. An implicitly disposed file can be returned many 
times in the same job. 

Returning a file routed with a delayed DISPOSE statement (see Section 9) causes the file 
to be immediately disposed to a station unit record device. 

Returning a post-staged file causes immediate staging out of the file. Returning a pre- 
staged file causes its mass storage space to be released. Returning a permanent file 
causes it to be detached from the job. If the file is a 6000/CYBER 70 Station permanent 
file, the 7600 mass storage used for the working copy is released. If a new cycle is 
to be cataloged, the cycle is staged to the 6000/CYBER 70 Station. Returning an 
attached 7600 permanent file causes it to be detached from the job. If it was attached 
with permissions other than read, returning the file makes it available for other users. 

An UNLOAD statement has the same effect as RETURN for mass storage files. 

When a file is returned, its LCM buffers are released. 
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Example 7-6 illustrates a job that returns files ST, OLDPL, and COMPILE when they 
are no longer needed by the job. 











CONTROL DATA 












JOB,CP70. \ 




STAGECST) 1 




ATT ACM OLDPL, PF NAME, I C = USER, ...)\ 




UPDATE(G,I=ST) 




RETURN<CLOPL,ST) ' 




FTN(I=CCHFILE> 




RETURNCCOMPILE) I 




LGO. 




6/7/B/9 am coZwm one. 



Example 7-6. Returning Mass Storage Files 



JOB MASS STORAGE LIMIT 

SCOPE 2 provides a LIMIT statement which can be used as a precaution against having 
a programming error occur that would result in an abnormal amount of mass storage 
being used. 



LIMIT(n) 



LIMIT acts on a job basis; n specifies the number of multiples of 40960 characters of 
mass storage that can be assigned to all the files in your job before the job will abort. 

If no limit is defined, a default value set by the installation is used. 
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PERMANENT FILES 8 



A permanent file is a mass storage file cataloged by the system so that its location and iden- 
tification are always known to the system. Frequently used programs, subprograms, and 
data bases become immediately available to requesting jobs. Permanent files cannot be des- 
troyed accidentally during normal system operation including deadstart; they are protected 
by the system from unauthorized access according to the privacy controls specified when 
they are created. 

Any mass storage file available to your job that is not already permanent can be made per- 
manent. A mass storage file is not made permanent unless you explicitly specify that it be 
made permanent through a CATALOG request. You may acquire (attach) a permanent file 
from either of two sources: SCOPE 2 system mass storage or SCOPE 3.x mass storage at 
the CYBER 70/Model 72, 73, or 74 (or 6000 Series) Station if your system has one. You may 
also catalog a permanent file at either location. 

USING SCOPE 2 PERMANENT FILES 

CYCLES 

The SCOPE 2 permanent file manager maintains one to five separate and distinct permanent 
files under each permanent file name. Each one of these separate files is called a cycle and 
is identified by the permanent file name and a cycle number. All cycles of a permanent file 
share the access restrictions (permissions) applicable to that permanent file name. Most 
commonly a new cycle is a more recent version of a previous cycle. 

CYCLE NUMBERS 

A cycle number is a decimal number (1 to 63, inclusive). Duplicate cycle numbers under a 
single permanent file name are not allowed. If you do not specify a cycle number when you 
catalog^ a file, the permanent file manager assigns cycle number 1. If you fail to specify a 
cycle number when you attach a permanent file, the cycle with the largest number is attached. 

LOGICAL AND PERMANENT FILE NAMES 

Each permanent file has a permanent file name under which its entry in the permanent file 
directory is listed. Permanent file statements that associate a permanent file with a user's 
program must include a logical file name. User programs reference logical file names only. 

The CATALOG statement declares a logical file name (lfn) to be a permanent file under the 
permanent file name (pfn). pfn is 1 to 40 alphanumeric characters. If characters other than 
through 9 or A through Z are desired, the special characters occur in a literal (that is, 
they must be preceded and followed by a dollar sign. The dollar signs do not become 
part of the name). 

CREATOR IDENTIFICATION 

The creator identification is a 1 to 9 alphanumeric character identifier entered into the per- 
manent file directory that identifies the creator of the permanent file. The purpose of the 
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ID parameter is to supply a file owner /user name to the permanent file manager. It is recom- 
mended that an ID for a permanent file be defined when the first cycle of the file is cataloged. 
Examples in this guide assume that ID parameters are defined. 

SCOPE 2 has no IDs reserved in contrast to SCOPE 3.x which assigns special meaning to the 
IDs of PUBLIC and SYSTEM. S 

MULTIPLE READ ACCESS 

Any number of users may simultaneously attach any number of cycles of a permanent file for 
read-only access. Any user that attaches a cycle for a purpose other than reading obtains 
exclusive access to that cycle. If the cycle is in use when the request for the cycle is made, 
the job must wait for the cycle to become available. If others request the cycle while a user 
has exclusive access, they must wait until the job with exclusive access releases that cycle 
of the permanent file. Multiread access is possible only when the extend, modify, and control 
passwords are established for the file. 

CATALOGING AN INITIAL CYCLE 

Cataloging a permanent file merely means declaring a logical file associated with the creator's 
program to be a permanent file. Cataloging is accomplished by the CATALOG statement 
which creates one cycle of a file at a time. CATALOG creates an entry for the permanent 
file in the permanent file directory. This entry includes the permanent file name, the cycle 
number, the creator identification, and any passwords defined by the creator of the file. 

As the creator of a permanent file you can grant or withhold permissions. When you catalog 
the initial cycle of a permanent file, you can supply passwords protecting the file from un- 
authorized operations such as increasing the size of the file, writing over existing data, cata- 
loging a new cycle, or purging an existing cycle. If you do not specify any passwords when 
you catalog the initial cycle, any program that attaches the file has exclusive access to the 
file with all permissions. If you specify passwords covering one or more operations, anyone 
to whom you reveal the passwords can exercise the permissions that the passwords represent. 
If you specify all passwords but reveal none of them, only you as the creator has any of the 
permissions relating to the permanent file. 

In this ^ way, the creator of the initial cycle of a permanent file determines how permissions to 
deal with all cycles under that permanent file name are granted or withheld. Those who wish 
to perform operations on that cycle or any other cycle of the permanent file use the passwords 
they know to establish their rights to access the file. 

If you catalog a file, the permanent file becomes available to other jobs when your job termi- 
nates or when your job releases the file through a RETURN or UNLOAD statement. Until 
then, the job remains attached to your job with all permissions granted. 

Catalog With No Passwords 



If you have a relatively limited or short-term need for a permanent file and are not concerned 
about file privacy or multiread access, you may want to catalog a file with no password re- 
quirements using the following control statement. 



CATALOG(lfn, pfn, ID=id) 
This allows any user to attach the file simply by using the corresponding ATTACH statement. 



ATTACH(lfn, pfn, ID=id) 
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Because all permissions are implicit to this type of catalog, multiread access is not possible. 

Example 8-1 illustrates two interdependent jobs that use the same file. TAPE1 is declared 
as a permanent file on mass storage so that it survives job termination. JOB1 then returns 
the file to the system and posts the dependency so that the file can be used by JOB2 which is 
waiting. JOB2 is then able to begin processing. It attaches the file, uses it, and purges it 
using the lfn. As will be shown, any job that attaches a cycle of a file with control permis- 
sion can purge the cycle. 



CONTROL DATA 



FORTRAN CODING FORM 



J081, 



CP70, 



X 




Creates TAPE I 
mass storage 



on 



1 * 



Catalogs TAPE! as 
permanent f i le 



i 



Detaches TAPE I 



■t— T 



Notifies J0B2 that 
dependency has been 

mrit 



CONTROL DATA 



COBOL CODING FORM 



J082, 

FILE( 

ATTACH 

COBOL. 

IGO. 

PURGE ( 



GCB 



IN7 
CC8I 



ceiN 



HT=h,BT) 
N,HYFILE,IO = JVR), 



7/8/9 i 

<C 

6/7/ S/9 



tn 



column onz 
BCL SOURCE FRCGRAH) 

in cjoixmn 



Logical f! le name Is 
assigned on job 
basis 



1 




Attaches permanent 
fl le MYFILE and 
assigns lfn of COBIN 



t 



Releases a 1 1 space 
assigned to MYFILE 



Example 8-1. Permanent File With No Password Requirements 
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Using the Retention Parameter 

As the creator of a cycle, you can specify the period for which the cycle is to be 
retained, in the form RP=n where n indicates to 999 days. A retention period of 
999 days is interpreted as an indefinite retention period. If no retention period is 
specified when you catalog a cycle, the default retention period is 1 day. Expiration 
of a retention period does not cause the cycle to be automatically purged. Usually 
a systems analyst or operator obtains a list of expired files which are considered can- 
didates for a periodic purging. 

Example 8-2 illustrates a job that defines the retention period as 30 days for cycle one 
of permanent file MYFILE. 



FORTRAN CODING FORM 



JOBSAJM 
FTN. 
LSO. 
CATALlC 
7 ft/9 



,CP70. 



G(TA 



,ID=MYNAME 



PE1,MYFILE 
eft aoium one, 
PROGRAM CKE ( l|NPLT, CU7PU 
PRINT 5 
FORMAT (1H1) 



Retention period 
Is 30 days 




7 



Example 8-2. Using the Retention Parameter 
Using the Cycle Number Parameter 

When cataloging or attaching a cycle of a permanent file, you have J;he option of 
assigning a cycle number in the form CY=n, where n is a decimal value from 1 to 
63. This parameter is seldom specified when cataloging the initial cycle but becomes 
significant when cataloging a new cycle. The cycle number, if unspecified on a catalog 
defaults to 1. If cycle n already exists, another cycle n is not allowed. The cycle 
number if unspecified on an ATTACH defaults to the highest numbered cycle in the 
permanent file. J 

In Example 8-3, file X of JOBA contains information of a confidential nature so the 
creator wishes to restrict reading to those whom he has given the read password. 
JOBB attaches the file with read permission. It is accessed as TAPE1 by the FORTRAN 
object program. J 
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CONTROL DATA 



JO8A,CP?0. 

STAGE(X) 

SKIP8(X, 2621^3) 

CATALOG(X,PFN,IC=PFIC,RC=fRI\)ATE) 



6/7/8/9 in column om 



CATALOG does not 
Initiate stage in of 
X. Therefore, user 
must copy or skip on 
fi |e to cause it to 
be staged in. 



I 



Establishes read 
password as PRIVATE 



CONTROL DATA 



J08E,CP70. 

FILE(TAPE1,8T=I) 

ATTACH<TAPE1,PF*,ID=PFID,PH^PRIVATE) 

FTN. 
LGO. 
7/B/9 in column onz 

(FORTRAN SOURCE PRCGRAH) 

6/7/8/9 in column onz 



Password list in- 
cludes PR IV ATE j read 
permission is 
granted 



Example 8-3, Defining the Read Password 

Using the Extend Password 

The extend password (EX=expw, where expw is 1 to 9 characters), if specified on the catalog 
of the initial cycle of a permanent file, permits any user who knows the password to increase 
or decrease the size of any cycle of a permanent file. 

The cycle number is unrelated to the number of cycles currently in the permanent file. 

Catalog With Passwords 

Passwords specified for read, modify, extend, or control operations restrict the exercise of 
that permission to those who know the password. If any password is undefined on an initial 
catalog, its corresponding permission is automatically granted on any attach of the file. 
Passwords are further protected through the practice of censoring their listing in the dayfile 
for the job. 
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When cataloging additional cycles of a permanent file, the passwords for later cycles are the 
same as for those established when the first cycle was cataloged. You cannot establish new 
passwords when cataloging additional cycles. 

NOTE 

Multiread access is possible only when the EX, MD, 
and CN passwords are established on the initial catalog. 
Specification of these three passwords is recommended. 

The CATALOG statement with password definitions has the following format when used to 
create the initial cycle of a permanent file. The password parameters can be omitted or 
can be in any order after the lfn and pfn parameters. The same character string can be 
used for more than one password. 

| CATALOGQfn, pfn, ID=id, . . . , RD=rdpw, EX=expw, MD=mdpw, CN=dnpw, TK=tkpw) 
Using the Read Password 

The read password (RD=rdpw, where rdpw is 1 to 9 characters), if specified on the initial cycle 
of a permanent file, permits only those users who know the password to read any portion of 
any cycle of the permanent file. That is, any user attaching the file for the purpose of reading 
it must include the read password on the ATTACH statement, as follows. 



fATTACHdfn, pfn, ID=id, . . . , PW=rdpw) 

The extend permission does not imply read permission; that is, if you specify the extend pass- 
word, you must also specify the read password to be able to read the file. Without extend per- 
mission, you can write beyond the EOI for your file, but the information does not become a 
permanent part of the file. When your job terminates, the information beyond the original EOI 
is lost. When the extend password has been defined, any user attaching any cycle of the file 
for the purpose of extending or altering the size of the file must include the extend password 
on the ATTACH statement, as follows. 

| ATTACH (lfn, pfn, ID=id, . . . , PW=expw) 

When a user attaches a file and obtains extend permission, he obtains exclusive access to 
that cycle of the permanent file. 

Using the Modify Password 

The modify password (MD=mdpw, where mdpw is 1 to 9 characters), if specified on the catalog 
of the initial cycle of a permanent file, permits any user who knows the password to rewrite 
any portion of the existing data on any cycle of a permanent file. The modify permission does 
not imply read permission; that is, if you specify the modify password, you must also specify 
the read password to read the file. When the modify password has been defined, any user 
attaching any cycle of the file for the purpose of modifying data up to the EOI must include the 
modify password on the ATTACH statement, as follows. 

| / ATTACH(lfn,pfn,ID=id, . . . , PW = mdpw) 
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When a user attaches a file with modify permission, he obtains exclusive access to that cycle 
of the permanent file. In Example 8-4, JOB1 creates a word addressable file. JOB2 changes 
some of the records on the file. The modify permission when used in conjunction with the 
extend permission also permits you to reduce the size of your file. 



CONTROL DATA 



FORTRAN CODING FORM 



J0ei,|CjP7C. 
FITN. 

l|gg. 

CATALblG(TA|PE5,IC = CCL 



7/S/9 
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200 



6I/7/M9 



DIME 
DIME 
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DO 2 
NCI) 
DO 2 
CALL 
CALL 
CALL 
END 
in 



coixmn one. 
PROGRAM TEST1 
NSION INCE 
NSION N(10 
CPENMS <I 
00 J=l,100 

-Im 

00 1=1,7 



,MC=MC0IFY 

CTAPE5) 
X (10* 
0) 

, INDEX, ID, 



0) 



,A(1> ,100,1) 



fcRITMS (5 
CLGSPS(5) 
REMARK C3h.H *** FINISHED KRIT 



Stores I to 100 
in each record 



ING AFRAY 








Example 8-4. Modifying a Permanent File 
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Using the Control Password 

The control password (CN = cnpw, where cnpw is 1 to 9 characters), if specified on the catalog 
of the initial cycle of a permanent file, permits the user who knows the password to catalog a 
new cycle or attach a cycle and purge it from the permanent file. The control permission 
implies no other permission. 

Using the Turnkey Password 

The turnkey password (TK=tkpw, where tkpw is 1 to 9 characters) restricts no specific permis- 
sions; however, if a turnkey password is defined on the catalog of the original cycle of a per- 
manent file, only the user who knows the password can exercise permissions specified or 
defaulted for any cycle of the permanent file. 

Thus, the turnkey password must be specified in addition to any other passwords when you 
wish to attach a file or catalog additional cycles of a file. 



(' 



ATTACH(lfn, pfn, ID=id, . . . , PW=tkpw) 

Example 8-5 shows how the turnkey password is used. JOBX shows the initial catalog. 
JPBZ shows attaching of a later cycle with control permission. In this case, the turnkey 
password also grants read permission since no read password is defined on the initial catalog 



CONTROL DATA 



JOBX,CF70. "~~ " 

COECL. 

LGO. 

CATAL0G(CliT,De,IC=CDI,RP=cgc,TK = 63,E)<=l,l-C = 2,Ch = 3) 
7/8/9 in column one. 



CONTROL DATA 




JOBZ,CP70. 

*TTACH(IN,Ce,I0=CDI,Fk=63,3,CY=l) 

INPUT. 

PURGE(IN) 

7/S/9 In column one 

(BINARY DECK GF PROGRAM THAT REACS II 
6/7/S/9 In column ont 



Example 8-5. Using the Turnkey Password 
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Password List 



On the initial catalog of the first cycle of a permanent file, each password is listed 
separately because this is how they are established. Once established, these passwords 
are referred to in password lists on subsequent catalogs of new cycles and on attach 
requests for existing cycles. 



ATTACH(lfn, pfn, ID=id, . . . , PW=password 1 , password^ . . . , password^ 

or 
CATALOG 

A password list is ignored if it is used on an initial catalog statement. Similarly, any 
attempt to establish or define a password (for example by using MD=mdpw) on a catalog 
of a new cycle is ignored. The password list can be in any order after the lfn and pfn 
parameters. Suppose that the initial catalog uses the following CATALOG statement. 

f^CATALOGCALPHA, MF, ID=ME, MD=MOD, EX=EXTEND, CN = CONTRL, TK = TURNKEY) 

The only permission for which no password is defined is read permission. Thus, the 
following password lists grant permissions as indicated. 

Password List Permission Granted 

PW=TURNKEY Read 

PW=TURNKEY, EXTEND Read and extend 

PW=TURNKEY, EXTEND, MOD Read, extend, and modify 

PW=TURNKEY,CONTRL Read and control (catalog and purge) 

PW=EXTEND, MOD None; turnkey password is missing 

PW=TURNKEY, MOD Read and modify 

Note that when a turnkey is defined, it must be supplied on any attach. Failure to 
supply the turnkey password would mean that no permissions would have been granted 
on the attach, a condition that causes job termination. 

All Passwords the Same 

If you catalog an initial cycle of a file with one or more of the passwords having iden- 
tical character strings (for example, MD=XYZ and EX=XYZ), you can enable all of the 
passwords having identical character strings by supplying the string once in the pass- 
word list. For example, PW=XYZ grants both modify and extend permissions. 

CATALOGING SUBSEQUENT CYCLES 

Creation of a subsequent cycle of an existing permanent file differs from the creation 
of the original cycle in that control permission and possibly the turnkey permission must 
be obtained. If neither permission was defined on the original catalog, no password list 
is required to obtain permissions. Use the following form of CATALOG when adding a 
new cycle to an existing permanent file. 



[ CATALOG(lfn, pfn,ID=id,RP=rp, CY=n, PW=password 1 ,password 2 ) 
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The parameters for lfn, pfn, RP, CY, and ID have the same meanings as in the previous 
descriptions. The default for the cycle number is still 1; you will want to specify a 
cycle number on a new cycle catalog. Example 8-6 shows a job adding a new cycle to 
a permanent file. The initial cycle of the permanent file for which the pfn is PERNAME 
was cataloged with TK=XYZ and CN=JOE. The creator ID is SMITH. 



CONTROL DATA 



Attaches highest 
numbered cycle. 
Read permission Is 
granted since no 
read password was 
defined on initial 
catalog 



JOB,CP70. 

A7TACHfLrCPL,F€RNAf'E,ID = SKITH,Fk=XYZ) 

UPDATE(N=NEfcPL) 

FTN<I=CCHPILE> 

LGO. 

CATALOG<NEHPL,PERNA*E,IC=SMITH,RP=10C,CY=2,PW=>YZ,JOE) 

7/8/9 in ^JoTjuS&r-zsg^ 

(DATA) 
6/7/8/9 In column one. 



\ 




Catalogs new cycle 
with 100-day reten- 
tion period; cycle 
number 2 



Example 8-6. Cataloging a New Cycle 

ALTERING THE SIZE OF PERMANENT FILES 

As previously noted, you can rewrite information in a cycle of a permanent file if you 
have modify permission. No permanent file statements other than the ATTACH state- 
ment are required. 

If you want to change the size of a permanent file, however, you can do so only by 
using either the ALTER or the EXTEND control statements. The ALTER statement 
allows you to lengthen or shorten a cycle of a permanent file. You must have acquired 
both modify and extend permission when you attached a cycle of the file to be shortened. 
Only extend permission is required to lengthen a file. 

The ALTER control statement has the following format. 



<> 



ALTER(lfn) 



The EXTEND statement allows you to lengthen the cycle but not shorten it and requires 
only extend permission. The control statement has the following format. 







EXTEND(lfn) 



8-10 
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Because the attached file is used as a logical file, the only parameter required following 
the ALTER or EXTEND statement is the logical file name used when the file was 
attached. If a file is to be extended only, it must be positioned at end of information 
before any writing occurs. If it is a blocked file, it must be closed. 

Example 8-7 illustrates how ALTER can be used to create an empty cycle of a per- 
manent file. 



CONTROL DATA 



J' 
FTN. 

ATTACH{ALT,ALT,ID=XX,Pk=KCD,EXT) 

LGO. 

REMIND (ALT) 

ALTER(ALT) 




Example 8-7. Using the ALTER Control Statement 



In Example 8-8 the permanent file GROW was initially cataloged with no password 
requirements. Hence, none need be specified to extend any cycle of the file. In the 
example, INPUT causes the program that writes on GROW to be loaded and executed. 
The EXTEND makes the addition permanent. 



CONTROL DATA 



JOB,CP70. 

ATTACH <GRGfc,GRClMlD = 

SKIPF(GRCfc,2621A3)-*- 

INPUT, 

EXTEND(GROW)^, 

7/g/9 in column or* 

(OBJECT DOCILE) 
7/1/9 ItMtl 11 

(OATA DECK) 
6/J/&/9 in column one. 






XX) 



Position f! le GROW 
at EOI 



ALTER (GROW) could be 
used instead of 
EXTEND (GROW) 



Example 8-8. Using the EXTEND Control Statement 
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PURGING PERMANENT FILES 

If you have attached a cycle of a permanent file with control permission, you have the 
authority to purge that cycle from the permanent file. The control statement has the 
following format. 



6 



PURGE(lfn) 

When the job terminates, or if you issue a RETURN or UNLOAD of file lfn, the mass 
storage used by the file is returned to the system. No subsequent job can attach the 
file. 

In Example 8-9, a user with the ID of JDOE decides to clean out three obsolete cycles 
from his permanent files to make room for new files. 



CONTROL DATA 



JOB CP7 

ATTACH(A,PFA,IC = JCCE,CY=1,PI* = CN) 

PURGE(A) 

ITTACH(E,PFE,ID = JDCE,CY=6 0,FI* = C>,T)<> 
ITTACH(C,PFE,ID=JDCE,CY=61,PW=C>,T>) 
'URGE(F) 



PURGE(F) 
PURGE(C) 



CX is control pass- 
word 
TX is turnkey pass- 




Example 8-9. Purging a Cycle of a Permanent File 

The status of the purged file for the remainder of the. job is determined by whether the 
purge is partial or complete. A partial purge requires control permission as a minimum 
and all but one permission as a maximum. After the PURGE statement is processed, 
file lfn still has all of the characteristics of a permanent file until the file is returned 
or the job terminates. Thus, for example, if you do not have read permission you can- 
not read the file even though it has been purged. This is because the pfn and all the 
permissions are still associated with the lfn. 

Example 8-9 illustrates a partial purge because only control permission has been granted. 

In contrast, a complete purge takes place when all permissions are granted. In this 
case, after the PURGE statement is processed, file lfn does not have the characteristics 
of a permanent file but instead resembles a temporary file. The lfn is no longer asso- 
ciated with the pfn. This means that if your permanent file contains five cycles, a com- 
plete purge can be immediately followed by a new cycle catalog in the same job. This 
would not be possible using a partial purge since with a partial purge the permanent file 
would appear to have all five cycles until the job ended or the file was returned or 
unloaded. 
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Example 8-10 shows a job that performs a complete purge of a cycle of a permanent 
file to make room for a new cycle. 



J0E,CP7a. 

ATTACH (fLl,FERMie,IC = USF , ?IC,Cy = l,FK = A,e,C) 

ATTACH(PL5,FERfLie,IC^LSFFIC,C\=5,FW=A,E,C) 



(PROGRAM USES PL5 TC GENERATE PL6) 



PURGE(PLl)- 

CATALCG(PLe,FERf'LIE f in = LSERIC,C> = f,Pfc = C) 

677/8/9 xjf*c5r^wa!*t one. 



Complete purge makes 
room for new cycle 

I — — 




Catalcqs new cycle 



Example 8-10. Purging a Cycle and Adding a New Cycle 

Another advantage of a complete purge is that it allows a user to recover a permanent 
file during EXIT processing if an abnormal termination occurs. 

A complete purge also allows you to attach a cycle of a file, and without copying it, 
remove it from its current location under one file name and recatalog it under a different 
file name. In Example 8-11, the user moves a permanent file from a permanent file 
named WRONGPLACE and recatalogs it under RIGHTPLACE. Since this represents the 
initial catalog of a cycle under RIGHTPLACE, the CATALOG contains password definitions. 




J0E,CP7G. 

ATTACh(2,WRCNG°LACE,IC=HIS,CV=5,P^=A,?,C,C,F) 

PURGE(Z) 

CAT ALCG<Z, RIG h TRIAGE, IE =NlNE,CN=MYCN,E> = !*YE><,f'C = NYM[) 

6/7/8/9 in column one. 



Example 8-11. Moving a Cycle From One Permanent File to Another 
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INSTALLATION DEFINED PRIVACY PROCEDURES 

Your site may define its own privacy procedures to be used instead of or in addition to the per- 
missions described in this manual. Check with your systems analyst to see if your site has 
defined additional requirements for accessing permanent files. 

USING SCOPE 3.x PERMANENT FILES 

So far, you have learned how to use permanent files on system mass storage at the CYBER 
70/Model 76 or 7600 Computer System. Suppose your site has a CYBER 70 Series Station or 
a 6000 Series Station, and you know of a permanent file there that you would like to access or 
perhaps you would like to maintain a permanent file of your own at the 6000 Station. SCOPE 2 
allows both of these operations. You cannot, however, modify, extend, or purge a file at the 
6000 Station. These restrictions arise from the fact that when you attach a cycle of a 6000 
Station permanent file, you do not obtain direct access to the file on the 6000. Instead, the 
first time your attached file is opened, the 6000 Station sends a working copy of the cycle re- 
quested over to 7600 mass storage where it resembles a temporary file more than it does a 
permanent file. Similarly, a catalog of a 6000 Station permanent file results in a copy of your 
file on 7600 mass storage being sent over to the 6000 Station as soon as the file is unloaded. 

Before attempting to use a permanent file at the 6000 Station, read the section on permanent 
files in the SCOPE 3.3 or SCOPE 3.4 Reference Manual, depending on the operating system 
in use at the 6000 Station. 

Restrictions on use of SCOPE 3.x permanent files are: 

1. You cannot dispose or stage a file either attached from the 6000 Station or cataloged 
at the 6000 Station. 

2. Under certain conditions, the user must assure that the transfer of an attached file 
has taken place before his job accesses the file. 

3. The SCOPE 2 file organization library (LB) cannot be used under SCOPE 3.4. You 
can catalog files having this organization at the 6000 Station but they cannot be ac- 
cessed by a SCOPE 3.4 job. None of the SCOPE 2 file organizations is available 
under SCOPE 3.3. 

4. SCOPE 3.4 requires blocking for sequential (SQ) files. 

5. SCOPE 3.4 permanent files using SIS, SDA, and IORANDM are not interchangeable. 

6. If you do not supply a FILE statement for the attached SCOPE 3.x permanent file, it 
is assumed by default to be record type W, unblocked. Remember that the default file 
type for a file created under SCOPE 3.x is S record type, C blocked. S records are 
the only file type interchangeable with SCOPE 3.3. 

7. Files to be cataloged at the 6000 Station from the 7600 must be unlabeled. 

8. Although exceptions exist, relocatable binary files are, in general, not interchange- 
able. 

USING THE STATION PARAMETER 

Addition of the station parameter (ST=ggg, where ggg is the station identifier) to the ATTACH 
statement notifies SCOPE 2 that the file to be attached is at the 6000 Station. Adding ST=ggg 
to CATALOG causes the file to be cataloged at the 6000 Station. You can catalog initial cycles 
or new cycles of existing files. When the ST parameter is present, parameters generally are 
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subject to the requirements of the SCOPE 3.x permanent file manager. One exception is that 
SCOPE 2 requires that the ATTACH or CATALOG specify an lfn parameter even though pfn 
is specified (a feature of SCOPE 3. 4 permits lfn or pfn to be omitted) and that if pfn is omitted 
that the positional comma be present. Another exception is that if the cycle number is speci- 
fied on a catalog of a new cycle or the attach of a cycle, that it be in the range 1 through 64 
even though SCOPE 3.4 now allows cycle numbers to go as high as 999. To avoid this restric- 
tion, it is best to always omit the cycle number; SCOPE 3.4 default for an omitted cycle num- 
ber on a catalog of a new cycle provides the highest numbered cycle plus 1. 

When the ST parameter is used on a CATALOG or ATTACH statement that is continued on 
additional cards, be sure that the parameter is on the first card of the statement. SCOPE 2 
searches only the first 80 characters of the statement for the parameter. 

Example 8-12, shows how to acquire an UPDATE old program library that exists as a perma- 
nent file at the 6000 Station for assembly and execution on the 7600. The old program library 
is S record format, requiring a FILE statement. No read password is defined for SRCELIB, 
so anyone is free to read the file. 



\ 



CONTROL DATA 



J0B,CP7U. 

flTTflCH(CLDPL,SfiCELie,ID=MSMITH,ST = CCF) 
.FILE(CLDFLffiT=S,KRL = 200 00)' 
UPDATE. 

C0MPASS(I=CCKPILE) 
LGC. 

7/8/9 in to&umn one. 
(UPDATE INPUT) 



finnn /pvrt^r 70 station Permanent File 



In Example 8-13, a user wishes to obtain a copy of a cycle of a 6000 permanent file and recat- 
alog it at the 7600 so that the information exists under both permanent file systems. In this 
case, the user must initiate the transfer of the file from the 6000 Station through a copy or skip 
operation since the CATALOG statement does not open the file. The transfer to the 7600 
occurs when the user first opens the file. 



joe,cP7o. 

ATT AC H<A,PRCG,IC -CREATOR, ST =CCP,Pk = fcCXXF) 
SKIPBCA, 2621*»3) 

CATALCG(A,NEfcPF,ID = TAKER,RP = coc, RC = 7,cfv = 7,EX = 7) 
6/7 /S/9 in column' one. 



Example 8-13. Making a 6000 /CYBER 70 Permanent File into a 7600 Permanent File 
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Example 8-14 shows an UPDATE old program library being created under SCOPE 2 
and cataloged under SCOPE 3.4 at the 6000 Station (identified as SVL). This cycle 
is then attached using a job that can be processed under either system. In this case, 
it is important to supply a cycle number since the default for cycle number on a new' 
catalog differs between systems. The ST parameter is ignored by SCOPE 3.4. 



J0Rl,fP7n. 

FILE(PL,RT=S> 

STAGE(PL,P0ST) 

UPO A TF(N=PL,W,L = 1 el**) 

CATALOG (PL ,PERMUPL IB, T0= JONES, ST= SVL , TK=XX* 

7/S/9 In column one, 

(UPDATE CREATION DECKS1 
6/7/S/9 In column one 



CONTROL DATA 



jce,cP7u. 

FILE(CLCPL,RT=S) 
FILE(NEkPL,FT=S) 

*TTACh<CLCPL,PERMUFLIE,ST=S\iL,IG = JCKES,F*.= >cX> 
UPDATE (P = CLCeL,N=KEfcFL,L=123«<,fc) 

CATALCG(NEbFL,PFRMLFLI0,ST=S\iL,ID=cCI^S,CY = 2,F*=>X> 
7/S/9 In column one 

(UPDATE" CC'PFECTICK DECK) 
6/7/5/9 in column on<L 




Example 8-14. Maintaining UPDATE OLDPL at 6000 /CYBER 70 Station 



8-16 



60372600 A 



UNIT RECORD DEVICES AT STATIONS 



All unit record devices are at stations and are not directly accessible to the CPU. In 
particular, this includes all card readers, printers, and card punches. Tape units are 
described in Section 6. 

When you originate data at a unit record device, the station passes it to SCOPE 2 as 
a mass storage file which is accessible to your program. Thus, when your program 
reads a card from your job deck, it actually reads the image from a mass storage file. 

When you want data to be put out on a unit record device (that is, printed or punched), 
your program places the data on a mass storage file which is then passed to the station 
for disposition upon request or when the job terminates. This means that when a pro- 
gram "punches" a card, it actually writes the card image on mass storage. When the 
job terminates, the station punches the card. 

This section familiarizes you with the programmer's role in such offline transfers of 
data, referred to as "spooling. " 

CARD READER INPUT 

j. m, mi <j j. me uuiuaiao luc pui uun ui Vuur juu uecK. liihl moat concerns you . Jiacn 
section or partition in your job deck becomes a section or partition of INPUT. A 
section consists of sequential, unblocked W records that vary in size according to 
whether your deck section is coded cards, formatted binary cards, or free form binary 
cards. 

SCOPE 2 normally terminates the INPUT file with an EOS/EOP/EOI sequence. If the 
last card in the job deck is an EOP, SCOPE adds a second EOP before the EOI* In 
this card there is no EOS preceding the EOP. 

j. uv, j. wit x uniM -tcmgudgc; ni^njj m, luiisi s LctucxneiiL HLULuiiiaticany reiers 10 ine nexi 
record on INPUT (see Example 9-1). Any other file can be equated to INPUT by adding 
the parameter TAPExx=INPUT to the program statement. In this case, the READ or 
BUFFER IN statement that references the unit as xx will actually read from INPUT. 
It is also possible to equate TAPExx=INPUT to enable the INPUT file to be referenced 
by a unit number. This allows you to check for EOF on INPUT, since the IF(EOF) 
statement requires a unit number. 

You can cause your COBOL program to read from INPUT through use of the COBOL 
ASSIGN clause. 

The INPUT file cannot be returned or unloaded. Although it is not protected from being 
redefined as some other file organization or record type, you should avoid redefining 
it. You can also change the MRL between job steps. 
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FORTRAN CODING FORM 



DBS. 
TN. 
TAGE 
GO 
7\I8I9 kh column 





00 



;ak 



105 
106 

10 



120 



00 



7/8/9 



TAPE!, POST) 



PRCG 

PRI 

FORK 

REAC 

FOR 

IF ( 

IF ( 



2 

3 

U 

3i2 

50 

U 

7|U|D 

1 



115 

4/7/*, 



O|5 



,CP7 



0. 



NT 



MA 



IF ( 
GO T 
CALL 
AREA 
PRIN 
FORK 
F18. 
fcRIT 
GO T 
STOP 
ENC 

SUER 
PRIN 
FCRK 
RETU 
ENC 



0.2*4 
0.2«t 

0.00 

6.32 

0.00 

0.00 

• <i3 

.00 

.00 

0.00 



RAM 
5 

AT 
10 
T< 

I.G 
as 

HE I 

C 1 

MS 

T 1 
AT 
c ,/ 
E ( 

C 1 



one 
ONE (I|NPUT,CUTPU 



(1F1) 

0,EASE, 

2F10.2 

T.G) GC 

E.LE.O) 

GHT.LE. 

06 

G 

.5*BASE 

10, EASE 

(///,* 

,♦ AREA 



II 



HEIGHT, I -*■ 

) 

TO 120 

GC TC 105 
0) GO TC 1 



♦HEIGHT 

, HEIGHT, AR 

EASE=*F20. 

=»F20.5) 



1) 





AREA 



CITINE MSG 

T ^0 

AT (///,» 

PN 



column 



500.76 
600.76 
7Cd.CC 
^25.36 
600.00 
150. OC 
800.00 
3CO.O0 
100.00 
200.00 



T, TAPED 



EA 

c -» HEIGHT 



FOLLOWING 



Reads a coded card 
from the next 



sect i or 



= * 



INPUT CATA 



of INPUT 



NEGATIVE ]fi ZERC ») 




Example 9-1. Reading Cards from INPUT 



9-2 



60372600 A 



Remember that unlike 6000 SCOPE, the INPUT file does not contain control statements. 
tZ^.T rewind or skip to BOI positions your file at the second section m yonr job deck. 
Example 9-2 illustrates this feature. 
Unlike other files, the loader does not rewind INPUT before loading from it. 



Rewind 
to here 



CONTROL DATA 




JOB,CP70. 

STAGE(SRCE) 

FTN<I = SJ£€*f 

LGC- 

REWIND(INPUT) 

LGC. 

7/S/9 AJfi C.6ZS2* 

(DATA) 
7/S/9 Uvzl 17 

(DATA) 
6/7/S/9 in column one 



/me. 



_J Execute using 
on INPUT 



data 



Rewind INPUT 



7 



Execute again 
using same data 




Example 9-2. Rewinding INPUT 

CODED PUNCHED CARD INPUT 

You are probably familiar with 80-column punched cards. However, ^ not .all .punched 
cards use the same punch conventions. The two sets supported by SCOPE 2 are the 
026 (Hollerith) set and the 029 (ASCII)t set. Look at Appendix A; you will see that 
for letters and numbers the punches are the same. It is in special characters that 
the sets differ. Thus, depending on the punch used for keypunching your cards, you 
will want to signal SCOPE that the card deck is 02 6 coded or 029 coded. 

Unless you indicate otherwise, the system assumes that cards are coded using 026 
punch format, "ft 



TANSI Standard x3. 4-1968 
ttAs an installation option, the default can be changed to 029 at the 6000/CYBER 70 
Station and the 7611-11 Station. The relationship of 026 and 029 is then reversed. 
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Hollerith (026) Punched Card Input 

Usually, your job identification statement, control statements, source language program 
directives, and data are punched using the Hollerith (026) character set (Figure 9-1). ' 



ABCDEFuH i 
llllllltl 



JKLMNOPQR STUVWXYZ 



i=.£.-?1-d 



H « 15 It I. « 13 ?3 z; ;? ;3 ;4 ?5 a V It 29 30 Jl 51 33 



3i 35 31 J7 



43 44 4S|K 4? II I! » 51 S! 5) il ii St Sf II 1! «| 



A 



iiiiiiiii 



ii 



SI C2B] 14 85 C6 tt N 



Tl 12 73 ?4 15 75 77 71 



n l()| 



I fl A I B 8 0|||||||| fl 0| 0|| 0| o o o e c a 

' ! 3 4 5 8 ' ' ' ,l IM " 3 U ' 5 " " '» " n " " » " 2i S 21 21 23 33 3! 3! 3! 34 35 St 3) 31 33 43 4! 42 43 44 43 4E 47 41 49 5! 51 S! 53 54 55 5! 57 58 59 EH tl 12 £3 61 t5 t! 67 61 63 70 71 72 73 74 15 It 1? 7i 7! t) 
111 M 1|111111 II I1| 11 111111111 111111111 1 | 1 1 1 1 1 1 1 1 1 1 1 1 1 | 1 1 M 11 11111111111111111111 



22 

1 2 

33 
44 

1 2 

55 
66 

I 2 

77 
88 

I 2 

89 



2222 2 1 2 2 

3 4 5 t J I 8 IE 

333333|3 
4444444| 

3 J 5 E 1 I ! 13 

5555 55 5 5 
66666666 

3 4 5 E 7 I J It 

77777777 
8 8 3 8 8 8 8 8 

3 4 5 t 1 I S II 

993 93 8 S3 



2 2 2 2 2 2 2 2 1 2 2 2 2 2 2 2 2 2 1 2 2 2 2 2 2 2 2 2 2 2 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 

* -' <> '1 « <3 44 <5 4i 47 49 49 51 51 52 S3 54 55 55 57 5S 53 60 CI 52 63 64 65 Et 67 SS ( 



I! 12 li 14 15 It 11 \i 19 21 21 22 23 24 25 26 27 23 ?S 33 



3 3 3 3 3 3 3 3 3 1 3 3 3 3 3 3 3 3 3 1 3 3 3 3 3 3 3 3 3 3 3 1 3 3 3 3 3 3 3 3 3 3 3 3 3 3 1 1 3 1 1 3 3 3 3 3 3 3 3 i . H 3 3 3 3 3 3 3 

4 4 4 4 4 4 4 4 4 4 | 4 4 4 4 4 4 4 4 4 | 4 4 4 4 4 4 4 4 4 4 4 | 4 4 4 4 4 4 4 4 4 1 4 1 1 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 

H 1! 13 14 IS IE 1) 11 13 23 21 22 2; 24 25 26 27 2J 23 3: 51 32 33 34 35 31 37 3! 33 4S 41 42 43 44 43 46 47 43 45 51 51 5! 53 54 55 5! 51 51 53 69 01 62 63 64 63 « El 69 65 '3 V 72 )1 14 7S 73 71 7= 73 63 

1 5 5 5 5 5 5 5 5 5 5 | i 5 5 5 5 5 5 5 5 1 5 5 5 5 5 5 5 5 5 5 5 1 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 
6|666EC66666|666G66656|66666666666|E666666666666S66666666EB5B6666GGB66 

II 12 13 14 13 It II M It n 2! 22 23 24 25 26 21 23 23 33 31 32 33 3i 35 36 37 3J 33 « 41 42 43 44 45 4S 47 43 41 51 51 52 53 54 55 ii 57 58 51 Si 61 62 61 M 65 66 t! (9 69 73 71 72 73 74 7 S ; ( - 7 ,» 13 a 

H 1 7 7 7 7 7 7 7 7 7 7 1 7 7 7 7 7 7 7 7 7 1 7 7 7 7 7 7 7 7 7 7 7 1 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 i ; 7 
888|88 8e88838 8|8 83 8 8 88 8 8|8 883 888 888E|888 8 8|8||||8||88S88883888888 8 3SU 

11 12 13 14 15 It II 1! 19 21 2i 22 23 24 25 25 21 21 2! 31 31 22 33 34 35 36 31 3J 31 41 41 42 43 44 (3 « 47 4! 43 5! 51 52 53 54 :•: IS 51 51 51 63 61 62 53 14 53 65 6! t! 61 71 71 72 (3 14 15 7S 11 1! ill E3 

n999|989S399999|999999999|99S999S3999|9999999S S 9 9 S 9 S 9 9'S 9 9 9 9 9 9 9 9 S 9 S S S 9 S 



Figure 9-1. Hollerith (026) Coded Card 
ASCII (029) Punched Card Input 

The control statements, source language program, and data can be punched using the 
029 character set (Figure 9-2). The set is limited to the 64 characters given in 
Appendix A. s 

To signal that 029 punched cards follow, punch the characters 29 in columns 79 and 80 
of the job identification statement, EOS, or EOP card preceding the data. The system 
assumes all coded information following is in 029 punched format until it encounters 
an EOS or EOP that contains a 26 punch in columns 79 and 80. The 029 mode termi- 
nates upon encountering the EOI for the job. 



li- 13 14 15 IC 17 19 ,3 20 21 ?2"jj";.i 25 26 27 28 n 30 51 3?" 33 34 I'TJilT § 3S 40 1 42 43 44 45|e 4T 48 43 5? 51 52 53 54 55 56 57 



IIIIIIIII 



IIHEHE 



69 70 71 72 73 74 75 76 77 78 79 80| 



000000 890000080000000C09COOO||||||||00|00000 000000000|00000|0800000GOOOOOOOOOOOO 

1 ! 3 4 s 6 ' ' > "'1 12 !3 !4 15 16 11 II 19 29 21 22 23 24 25 26 21 21 25 36 31 32 33 34 35 36 37 38 39 43 41 42 !3 44 45 46 4) 49 49 SI 51 5' 53 54 
H 1 1 1 ill 1 1 1 1 1 1 1 1 ill 1 1 1 1 1 1 11 1 1 1 1 11 1 1 11 1 l" 



SS 56 5> St 59 69 61 62 63 64 E5 66 67 Si 69 79 71 72 71 74 75 76 77 11 75 SS 
11111111111111111111111111 



1111111111111 

2 2 2 2 2 2 2 1 2 2 2 2 2 2 2 2 2 2 1 2 2 2 2 2 2 2 2 2 1 2 2 2 2 2 2 2 2 2 2 2 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 

1 2 3 4 5 6 7 1 1 ID I! 12 13 14 15 16 17 19 13 21 21 22 23 24 25 26 ?! 23 23 39 31 32 33 34 35 36 37 31 39 40 41 (2 43 44 45 46 47 41 49 58 51 52 53 54 55 51 57 51 51 B3 6! 62 63 64 ES 66 61 El 69 10 71 72 73 74 75 76 77 '1 79 SO 

33333333133 3333 333 3l3 3 33 3 333313 3 3 333 333 3 3l33 33 333 3333 333l33ll33 333333 3 3333333333 
4 4 4 4 4 4 4 4 4 I 4 4 4 4 4 4 4 4 4 4 I 4 4 4 4 4 4 4 4 4 1 4 4 4 4 4 4 4 4 4 4 4 1 4 4 4 4 4 4 4 4 4 I 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 

1 2 3 4 5 6 1 I 9 19 M 12 13 14 15 IB I) II 19 21 21 22 23 24 25 26 2" 2! 29 39 31 32 33 34 35 36 37 31 39 41 41 42 43 44 45 46 47 41 43 51 51 52 53 54 55 SB 57 51 59 50 61 62 63 64 65 EE 6! 61 69 70 71 72 73 74 75 76 77 11 79 19 

5555555 5551 55555555 5 5 155555 5555 15555555555 5 15555 55 5555115 555555 55 5 55 555555 555 555 
66666E66E66lE666666666l6666ti6666l66666666666l666B6l6G6666l6666666B66666666e66666 

1 2 3 4 5 t 7 I 1 It II 12 n 14 15 16 17 II 13 21 21 22 23 24 25 26 27 21 21 31 31 32 33 34 35 36 37 39 39 40 41 42 43 44 45 46 47 41 4! S3 51 52 S3 54 SS 5S 57 51 59 61 SI 62 63 64 65 66 67 61 69 71 II 12 71 74 IS 76 7) II 7! 11 

1777777777771777777 /777IJ7 7 777777l77777777777l7777777777777777777777777777777777 
888888888888818 888888 88818888888 3 8 ■ 8 8 8 8 8 8 3 8 8 8 8 1 8 83 1 8 1 8 III! 8 II 8 8 8888888888 8 8888 8 8 

'*'« » «'•"•"" 13 M 15 It 17 II 19 21 21 22 23 24 25 26 37 21 21 31 31 32 31 34 3S 35 !) 39 39 4! 41 42 43 4. 15 4S 47 43 49 51 51 S2 53 54 SS 56 51 5. 51 60 61 S2 63 S4 65 6S 67 S! 6! 70 7. 7! 73 14 75 76 7) 70 )» 10 

19 9 9 9 9 9 9 9 9 9 9 9 9 1 9 9 9 9 9 9 9 9 9 9 1 9 9 9 9 9 9 9 9 9 1 9 9 3 9 9 9 9 9 9 9 9 1 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 
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Figure 9-2. ASCII (029) Coded Card 
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Example 9-3 illustrates a job containing a FORTRAN source deck punched in the 029 
punch format. 



'6/7/8/9 



DATA 



7/8/9 



'7/8/9 



26 



29 



'control statements 



J0B.CP70. 



026 CODED CARDS 



SIGNALS THAT 026 
PUNCHED CARDS FOLLOW 



FORTRAN SOURCE 
(029 CODED CARDS) 



SIGNALS THAT 029 
PUNCHED CARDS 
FOLLOW 



026 CODED CARDS 



JOB STATEMENT 



2AX56A 



Example 9-3. ASCII (029) Coded Punch Input 



60372600 A 



9-5 



INPUT Record Size for Coded Cards 

Each coded card becomes a W record containing display code characters. The size of 
the record is determined by the station of origin. Trailing blanks are truncated There 
is no record of the number of blanks truncated. If they are significant in your data 
there is no way to recreate them. 

6000 and 7611-11 Stations 



A coded card from the 6000 Station or 7611-11 Service Station has trailing blanks trun- 
cated to 2 characters less than a full word, or if the card contains information in col- 
umns 79 or 80, the station adds blanks up to 88 characters. Thus, a coded card image 
is a minimum of 8 characters and a maximum of 88 characters (Figure 9-3) This pro- 
cedure is required for the JANUS interface between the two systems, which uses a zero- 
byte terminator. 

When reading cards from INPUT, be sure to allow sufficient buffer size. For example 
do not set the MRL on a FILE statement for INPUT to 80 for copy routines. ' 

7611-1 Station 

A coded card from the 7611-1 Station has all of the trailing blanks removed. If the card 
contains 79 or 80 characters of data, the record is 79 or 80 characters, respectively 
Figure 9-3 illustrates coded card images on INPUT. 



4-CHARACTER LOGICAL RECORD 




76 1 1 - 1 — 
STATION 



6000 
STATION- 



w 

CONTROL 
WORD 


XXX X 



8-CHARACTER LOGICAL RECORD 



w 

CONTROL 
WORD 


X X X X 


AAAA 



80- CHARACTER LOGICAL RECORD 




7611-1 — 
STATION 



6000 
STATION- 



w 

CONTROL 
WORD 


XXXXXXXXXX 


X X XX X X 




88- CHARACTER LOGICAL RECORD 




W 

CONTROL 

WORD 


XXXXXXXXXX, 


x 


AAAAAAAA 



CHARACTER POSITION 80 

2AXI9A 



Figure 9-3. Coded Card Images as W Records on INPUT 
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SCOPE BINARY CARD INPUT 

Figure 9-4 illustrates a SCOPE binary card. The station recognizes the card as SCOPE 
binary by the presence of the 7/9 punch in column 1. It takes the data from columns 
3 through 77 and packs it into W records, the size of which is determined by the station. 
For the 6000 Station, for example, each W record is 630 characters. 

A binary card contains up to 15 60-bit CPU words starting at column 3. Column 1 con- 
tains a count of 60-bit words in rows 0, 1, 2, and 3, plus a check indicator m row 4. 
If row 4 of column 1 is 0, column 2 is used as a checksum for the card on input; if 
row 4 is 1, no check occurs on input. 

Column 78 of a binary card is unused; columns 79 and 80 contain a binary sequence 
number. 



2 3 4 5 



12 

It 



I 

2 
3 
4 
5 
6 
7 
8 



*e v 



COLUMN BINARY INFORMATION 



V*^ 



UJ 

O 

(U 

< 
o 



2AX20A 



Figure 9-4. SCOPE Binary Card 



All of the decks to be loaded by the loader, that is, object modules and core image mo- 
dules consist of SCOPE binary cards. For a more complete description of the loader- 
tables that comprise the object module or core image module, refer to the Loader Refer- 
ence Manual. The loader ignores the W record delimiters when it reads SCOPE binary 
decks. The record delimiters are significant in a FORTRAN or COBOL program. 

NOTE 

When you use FORTRAN or COBOL I/O statements 
to read a formatted binary record, you do not re- 
ceive the data between two 7/8/9 cards as you would 
on previous operating systems. Instead, you receive 
a W record, the size of which depends on the station 
of origin. For example, for a 6000 Series or 7611-11 
Station, you receive 630 6-bit characters of data. 



60372600 A 



9-7 



As shown in Example 9-4, this does not promote a one-to-one correspondence between 
output statements and input statements. (See also, Punched Card Output, page 9-18.) 



CONTROL DATA 




JOBi, 
FTN. 
LGO. 
11119 



CONTROL DATA 




J092, 
FTN. 
LGO. 
1/S/9 



370. 



tolmn 
3 R0G 
3TMF 

on i 

?FAD 



Example 9-4. FORTRAN Binary Input (6000/CYBER 70 Station) 

FREE-FORM BINARY CARD INPUT 

Free-form binary cards, also referred to as 80-column binary, contain data in all 80 
columns. • 

When you place free-form binary decks in your job deck, a binary flag card must pre- 
cede and follow the free-form deck (see Figure 9-5). This flag card has all rows of 
column 1 punched and all rows of any other column punched. The card can contain no 
other punches. 
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FLAG 
CARD 




FREE -FORM 
BINARY DECK 



2AX2IA 



Figure 9-5. Flag Cards to Delimit Free-Form Binary Deck 

When SCOPE 2 produces free-form binary decks, the first card and the last card of 
the deck (except for EOS, EOP, or EOI cards) are flag cards. If the free-form deck 
was created under some other system, you must add these cards. 

The station does not transfer the flag cards to the INPUT file. Each free-form binary 
card is transferred as a W record consisting of 160 display-coded characters (Figure 
9-6). 

EOS and EOP cards are not recognized inside of free-form binary decks. 
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160 CHARACTERS 



w 

CONTROL 
WORD 


CHAR 
1 


CHAR 
2 


CHAR 
3 


CHAR 

4 


CHAR 
5 


CHAR 
6 


CHARU 

7 1 


CHAR 
159 


CHAR 
160 



Figure 9-6. Free-Form Binary Card Translation 



NOTE 

When you use an I/O statement to read free-form 
binary, you do not receive all the data between 
the flag cards. Instead, you receive a W record, 
that is, 160 characters of data. 
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PRINTER (LIST) OUTPUT 

Every job processed by SCOPE 2 results in some printer output, even if it consists 
merely of the dayfile history of the job. Much of the printer output you will receive is 
generated by the compilers, assemblers, and utility programs. You will have more 
direct control over other list output resulting from output statements you have used in 
your source language program. 

Whether you are responsible for formatting the list output or whether it is formatted 
for you, the data to be printed must adhere to certain requirements and conventions. 

1. To be printed, a file must consist of unblocked W records. 

2. The file is assumed to consist of display code characters. That is, every six 
bits are interpreted as the display code representation for the character to be 
printed. (See Appendix A. ) 

3. The first character of each W record is assumed to be a carriage control 
character. 

4. Normally, 137 characters including the carriage control character constitute a 
print line. For the 6000/CYBER 70 Station and 7611-11 Station, if a record is 
greater than 137 characters, additional characters are continued on subsequent 
lines. Only the first character of the record is interpreted as a printer control 
character. For the 7611-1 Station, characters beyond the 137th are ignored. 

When printing at the 6000/CYBER 70 Station or 7611-11 Service Station, a double 
colon (zero byte) in the low order 2 characters of a word prematurely terminates 
a print line. 

Generally, the object program as well as the compilers and assemblers will be writing 
the list output on the system file named OUTPUT. This file is automatically printed 
when the job terminates. Many of the compilers and assemblers let you direct your list 
output to a file other than OUTPUT. Also, you may want to write your output on a file 
other than OUTPUT and list it. In this case, it is your responsibility to use a DISPOSE 
statement to route the file to a station where it will be printed. If you do not properly 
dispose a file, it is lost. 

IDENTIFYING PRINTER OUTPUT 

Each printout of a file generated by a job begins with two pages containing the modified 
job name in large characters (Figure 9-7). These are called banner pages and precede 
data on the OUTPUT file or any other file routed for printing. The banner page helps 
the operator identify list output for your job and route it back to you. 

PRINTER CARRIAGE CONTROL 

The first character of each logical record to be printed must be a carriage control 
character. The character itself is not printed but is part of the record on mass storage. 
Buffer areas must be large enough to accommodate this character. When the record is 
copied to a device other than the printer, the character is considered as the first char- 
acter of the data. 

Table 9-1 gives the printer control characters. 



9-10 60372600 A 



SS3SSSSSSSS 


aa 


aa 


sssssssssss 


aaa 


aaaaaaaaa 


ss 


aaa 


aaaaaaaaa 



000 03 

ocoooooon 

000030 
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Figure 9-7. Printer Banner Pages (Two Styles) 
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TABLE 9-1. CARRIAGE CONTROL CHARACTERS 



Character 



PM 

Q 

R 

S 
T 

U 
V 

w 

X 
Y 
Z 

1 

2 

3 

4 
5 
6 
7 



Action 



Single space, post-print page eject 

Single space, post-print skip to last line of page (line 64) 

Single space, post print page eject 

Single space, skip to line 4 or 34 

Single space, skip to line 4, 24, or 44 

Single space, skip to line 4, 19, 34, or 49 

Single space, post-print skip to line 2 

Single space, post-print page eject 

Single space, post-print skip to last line of page 
Single space, post-print skip to line 1 

Single space (like blank) 



Display remainder of line to operator; wait for operator action; not 
recognized by 7611-1 Station. 

Clear auto page eject, suppress remainder of line; default for 
6000/CYBER 70 and 7611-11 Stations. 

Select auto page eject, suppress remainder of line; default for 
7611-1 Station 

Select 6 lines per inch; suppress remainder of line 
Select 8 lines per inch; suppress remainder of line 



Single space (like blank) 

Page eject 

Skip to last line of page 

Skip to line 1 

Double space 

Page eject 

Skip to last line of page 

Page eject 

Skip to line 4 or 34 

Skip to line 4, 24, or 44 

Skip to line 4, 19, 34, or 49 

Skip to line 2 

Skip to line 4 

No spacing 

Triple space before printing 



All special characters act like blanks 
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Any preprint operation of 1, 2, or 3 lines that follows a post skip operation will be 
reduced to 0, 1, or 2 lines. 

Issue the functions Q through T at the top of a page. S and T cause spacing to be 
different from the stated spacing if given in other positions on a page. Q and R cause 
a page eject before the next line is printed. 

Printing 6 lines per inch allows a maximum of 65 lines per page. However, with auto- 
matic page eject, only lines 4 to 64 are used, thus allowing for 61 lines. If the printer 
is switched to 8 lines per inch (either manually or by the carriage control character T), 
88 lines can be printed on a page but only lines 5 to 85 are used if pages are skipped 
automatically. 

Printing Without a Printer Control Character 



Suppose you want to print a file that contains your source language program. If you 
were to route it to a printer or copy it to OUTPUT, the first character of each line is 
data and would be interpreted erroneously as a carriage control character. A control 
statement that you can use to overcome this problem is the COPYSBF (or COPYSP). 
This stands for Copy Shifted Binary File (or Copy Shifted Partition). The control state- 
ment can have either of the following formats. 



COPYSBF 

or (lfn._,lfn 

COPYSP 



in* 



out 



The routine takes each record in the next partition of a file, inserts a blank character 
before the first character, and copies the record to another file. The second file is by 
default OUTPUT, but can be a file to be disposed. The file must be unblocked W re- 
cords to be disposed, however. The input file is by default INPUT, but can be any file. 
Each end-of-section causes a page eject. 

Example 9-5 illustrates a job that effectively performs a card-to-print operation; it 
copies a partition on INPUT to OUTPUT. 



CONTROL DATA 



J0B,CP7U. 

COPYSBF. 

7/S/9 In column one. 

(CODEC DATA TO BE LISTEC) 
6/7/S/9 In column onz 




Example 9-5. Copy INPUT to OUTPUT Shifting Each Record 
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DISPOSING PRINT FILES TO STATIONS 

If you have a mass storage file that meets the requirements of a print file (unblocked 
W records containing display code characters with the first character a carriage control 
character), you can cause the file to be immediately routed to a station to be printed by 
placing the following control statement after the job step that last uses the file. 







DISPOSE(lfn, PR) 



You cannot dispose staged or on-line magnetic tape files because they are blocked. 
However, you can dispose permanent files if they are at the 7600, not at a 6000/CYBER 
70 Station. 

Print blocked data by copying it to an unblocked file and then dispose the copy of the 
file. 

Type of Printer 

Designate the type of printer to use at the 6000/CYBER 70 or 7611-11 Station by using 
PI instead of PR to indicate a 501 printer or by using P2 to indicate a 512 printer. 
Your file will be placed in the queue for the printer of the requested type. The 7611-1 
considers PR, PI, and P2 equivalent; all printing takes place on a 517 printer. 

Forms Control 



If you want the printing to take place on special forms, you can notify the operator by 
expanding the disposition code (PR, PI, or P2), as follows: 



DISPOSE (If n, Px=Cyy) 



(' 

yy is a two-character code unique to your installation. Check with your systems analyst 
or the operator to determine what codes, if any, have been assigned to your installation. 
When your file is routed to the station, the operator is informed via a console display 
message that he must assign a printer and mount the form you requested. 

Delayed Disposition 

If you place the DISPOSE control statement before the job steps that create or use your 
print file (Example 9-6), you must prefix the disposition code with an asterisk to indicate 
that you do not want immediate routing of the file to the station. The file will be routed 
at job termination or upon issuing a RETURN or UNLOAD statement. Failure to use * 
causes an empty file to be sent for printing. This placement of the DISPOSE statement 
affords a degree of protection for the file description. That is, you will receive an 
error message if any job step attempts to redefine the file as blocked. It also guaran- 
tees that the file will be disposed if an abort condition occurs later in the job, as long 
as the fatal error did not directly involve the file. 
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CONTROL DATA 



FORTRAN CODING FORM 





00 



J|0B,C|F|7 0. 
FTN. 

ISPO|$E(TA 
LfGO. 
7KS/9 



PE1,*PR> 



PRCG 
PRIN 
FCRN 
READ 
FCRH 



co'i'jumn 



RflK CNE (H 

T 5 

AT ( 1 F 1 ) 

1QQ,EASE, 
ATJ2F13.2I 



*PR speci f les 
delayed disposition 
of fi le TAPE! 



NPUT, OUTPUT, TAPED 



HEIGHT,! 



Example 9-6. Placement of DISPOSE Statement 

Rou ting to Another Station/Terminal 

Consider the possibility that you want your file printed at some station or terminal other 
than the one through which your job was submitted. To specify the destination of your 
file, add the ST parameter to your DISPOSE statement: 



( 



DISPOSE(lfn, Px, ST=gggttt) 



In this case, ggg is a 3 -character station identifier assigned to the station when it was 
logged in (CCP is the default identifier for the 6000/CYBER 70 Station: IOS is the de- 
fault identifier for the 7611-1 Station). The terminal identifier ttt is optional, but when 
it is present, it identifies a terminal linked to the station designated by ggg. If ttt. is 
present, the Px parameter cannot include forms control. 

If you are routing to a 6000/CYBER 70 Station or 761i-ll Station EXPORT /IMPORT 
terminal or INTERCOM terminal, you can designate the terminal by expanding the 
disposition code rather than using ttt on the ST parameter. This form is compatible 
with 6000 SCOPE 3.4 disposition. 



f 1 



DISPOSE(lfn, Px=Eyy) 



EXPORT /IMPORT terminal 
IMPORT terminal 



DISPOSE (If n, Px=Iyy) 

When these codes are used, you cannot use forms control nor ttt on the ST parameter, 
yy is a 2 -character code defined by the installation. 

Example 9-7 illustrates a FORTRAN job that creates a print file named TAPE1 and 
disposes it to a 501 printer. 
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AM,CP7 



DpSPOIS 
7 



130 



E(TAjPEl,Fl) 
coQimn owl 

PRCGlRAH CNE (I|NPUT,GUTPU|T,TAFE1) 

PRINtf 5 

FCRMWT (1H1) 

READ 10U,EASE,|hEIGHT,I 

FCRMbT(2F10.2Il) 

IF (tl.GT.O) GC TC 120 

IF (EASE.LE.O) GC TG 105 

if (Might. le.dj go tc i|o 



Example 9-7. Disposing Print File Created by FORTRAN Program 

Example 9-8 illustrates a FORTRAN program that generates each of the 64 characters 
in the character set in display code and writes a line of the character on OUTPUT. 
OUTPUT will be printed on the next available printer at the station of job origin (in this 
case, a 6000 Station) when the job terminates. Before job termination, the job rewinds 
OUTPUT (the dayfile has not yet been added) and writes it on a file to be disposed at 
some other station for comparison. (In this example, the file is routed to a 7611-1.) 
Note that the printer driver for the 6000 /CYBER 70 Station handles the % and : differ- 
ently from the 7611-1 and that the FORTRAN program is unable to generate the 00 code. 




Return inp OUTPUT 
separates FTN I ist 
output from object- 
time output 



i 



Writes character 
set on OUTPUT 



Copies OUTPUT 
to file PRINT 

T 



Routes PRINT to 
761 I- 1 Station (AAA) 
for printinn. Dis- 
position code is PR. 



Example 9-8. Generate Printer Character Sets 
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CODE = 00 
CODE = 01 
CODE = 02 
CODE = 03 
COQE * 0<i 
COOE = OS 
CODE = 06 
COOE = 07 
COOE * 10 
COOE * 11 
CODE = 12 
COOE * 13 
CODE = 14 
CODE = IS 
COOE - 16 
COOE * 17 
COOE * 20 
COOE =21 
COOE = 22 
COOE * 23 
COOE * 24 
CODE * 25 
CODE * 26 
CODE = 27 
COOE = 30 
COOE = "31 
COOE * 32 
COOE * 33 
COCE * 3* 
COOE = 35 
COOE = 36 
COOE * 37 
COOE * 40 
COOE * 111 
COOE * 42 
COOE = 43 
COCE * 44 
COOE * 45 
COOE * 46 
COOE = 47 
CODE * 50 
CODE • 51 
CODE = 52 
COOE * 53 
COOE * 54 
COOE * 55 
COOE * 56 
COOE * 57 
COOE = 60 
COOE * 61 
CODE = 62 
COOE * 63 
COOE = 64 
COCE = 65 
COOE = £6 
COOE = 67 
COOE = 70 
COOE * 71 
CODE * ?i 
CODE * 73 
COOE * 74 
COOE = 75 
CODE * 76 
COOE = 77 



\ 



6000/CYBER 70 STATION 



BBBEEBSBEBEEEEEEBeeEEEEEEEEEEEEEEEEEeEEEeEEEEEEEEEEEeBEEeeEEEEBeeeSeeBEEBeBEEEee 

CCC««CCCCCCCCCCC^ 
OCEOCOCOCOOCCOOtOCCCCCOCCCCCOCOOCCCCCCCtCCCCCtCCCOOCOCCCCCCCCOCCOCOCCDOCCCDCCCCO 

EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEIEEEEEIEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 

„FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 
GGGGGGGGEGGEEGGEGEGEGEGEEGEEGGGGGGGGC-EECGEGGECGCEGEGGGGGCGGGGEGEEGGGGGGGGC-GGGGGG 

HHHHHH^H^^H^^'H(•^H^H^n•H^^^■^^H^^H^•^^^h^^n■^^^^^h^^H^^HH^^^^■^Hl-^^^^•HH^^HH^^'^■HH^^HH 

mnnnniiinininiiininiininninniiinniininnnninnnniiiiii 

JJJJJJ4JJJJJJJJ«iJvJ-JJJJJ«JJJJJJJJJ«JJJJ*J«JJJ«J» JJJJJJJJJJJJJJJJJJJJJJJ, ' JJJJJJJJ 
KKKKKKKKi^KXKKKI'KI'KXKXKMI'MKKKKKEKE^ 

LLLLLLtLLt 

KHHHMII'MM 



\ 



76 1 1- 1 I/O STATION 



CCCCCOCCCI 
FPPPPPFPPI 
CCCCCCOQCI 
RRRRRRRRfil 

ssssssjsj: 

TTtTTTlTTl 
UllUJlljll 
VVVVVVtVtl 

H.ktiWH»t.H 

>»xxxx»x>: 

YYYYYY1YY 
ZZZZZZ2Z2 
00OOOOIOCI 
111111111 
222222222 
333333333: 
4444444441 

S555S555 
6EE6EEE6EI 
777777777 
80(888(8(1 

9S9999S9S 
♦♦♦♦♦♦♦♦♦ 



///////// 

11(11(111 

mssnsi 



ttttllttl 
miinii 
iiiitmi 

********* 

********* 



♦♦♦♦♦♦«t» 
********* 
<<<<<<<<< 
>>>>>>>>> 

<<<<<<<<; 
>>>>>>>>> 



CODE = 3 
COOE = 31 
COOE = 32 
COOE =03 
CODE = 04 
COOE =35 
COOE = 36 
COOE = 37 
CODE = 10 
COOE = 11 
CODE = 12 
COOE = 13 
CODE = 14 
COOE = 15 
COOE = 16 
COOE =17 
CODE = 20 
COOE = 21 
COOE = 22 
CODE =23 
COOE = 24 
COOE =25 
COOE = 26 
COOE =27 
COOE = 30 
GOOE =31 
CODE = 32 
COOE = 33 
CODE =34 
COOE = 35 
COOE = 36 
COOE =37 
COOE = 43 
COOE = 41 
COOE =42 
COOE = 43 
COOE = 44 
COOE = 45 
COOE = 46 
COOE = 47 
CODE = 50 
COOE = 51 
COOE = 52 
CODE = 53 
COOE = 54 
COOE = 55 
COOE = 56 
COOE = 57 
COOE =60 
COOE = 61 
COOE = 62 
CODE =63 
CODE = 64 
COOE 
COOE 
COOE 
COOE = 70 
COOE = 71 
CODE = 72 
COOE = 73 
CODE = 74 
COOE = 75 
COOE = 76 
COOE =77 



65 



67 



aA»AB8»»»»A4»A»S»»»»'»»*»»«&»*»»»»»»*»» a »» | l»«** 8a ***** , ** a ** ,l * 1 ** a *" ************ 

q9B33B9BB8BB«F«3B3933='-nd9333BS')3-H3B33B3333fl3933BB33339BB3nB'n9RB39B3333B33BB99B 
cccccccccccccccccccc-cccccccccccccccccccncccccccccccccccc-cccccccccccccccccccccc 

OODDDDDD330D003300D030:>33330n03D0331003mi3 3D03D03DamQ3003DDD-|OOD3D000300DOOODDO 
EEEEEEFEFEEE c EE£' r EEPf r E-E c < : ' r E F EEEEEEEEESEEEEE<:EEEeEEEEEEEE r .EEEEEEEtEEEEEEEEEEEEEE 
FFFFFFFFFFFFFFFFFFFF V F >r FFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFPFFFFFFFFFFFFFFFFFF 
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Example 9-8. Generate Printer Character Sets (Cont'd) 
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PUNCHED CARD OUTPUT 

Earlier, we described how to read punched cards from your job deck. Now, we shall 
describe how these cards can be generated as output from your job. Punch options in- 
clude coded punched cards (026 or 029), formatted binary cards, and free-form binary 
cards. 

IDENTIFYING PUNCHED OUTPUT 

Each time a file is punched, the deck begins with a lace card that contains the modified 
job name in large characters. The lace card (Figure 9-8) precedes data automatically 
punched from files routed for punching. The lace card helps the operator identify 
punched output for your job so that he can route it back to you. 
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Figure 9-8. Lace Card 



SEPARATOR CARDS 

Any delimiters in the file (that is, EOS, EOP, or EOI W control words) cause a corres- 
ponding file separator card to be punched, and for some stations, offset in the punch 
hopper. W control words for records are not punched. 

MISPUNCHED CARDS 

If the system detects an error while punching a card, it offsets the card and repunches 
the data. If you have difficulty reading punched cards, check to see that these mis- 
punched cards have been removed. In particular, check the sequence numbers (in 
columns 79 and 80) for SCOPE binary cards. 
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CODED PUNCHED CARDS 

For a file to be punched as coded cards, it should conform to the following conventions. 

1. It must contain unblocked W records. 

2. The file is assumed to consist of display code characters, that is, every six bits 
are interpreted as the display code representation of the character to be punched. 

3. Normally, the record consists of 80 or less characters which constitute a single 
punched card. If a record exceeds 80 characters, the 6000/CYBER 70 Station 
and 7611-11 Station continue the record on as many cards as are needed to hold 
the record. Each record begins a new card. Remember, that when the cards 
are read in, each card becomes a W record so there is not necessarily a one- 
to-one correspondence between reads and writes. For the 7611-1, if a record 
exceeds 80 characters, information beyond the 80th character is ignored; only 
one card is punched. 

When the station punches a file, it does not punch the W control words. You can impli- 
citly request coded punch output by writing on the PUNCH file, or you can explicitly 
route the file to a station for punching through the DISPOSE statement. 

SCOPE BINARY PUNCHED CARDS 

For a file to be punched as SCOPE binary cards, it must contain unblocked W records. 

Normally, the record consists of a complete core image module or object module deck 
and is intended as input for the loader. The file is punched as if it contained pure bi- 
nary information, but it can contain display code information. Punching coded informa- 
tion in binary (sometimes called "crunch" format) provides a more compact card deck 
than punching it in coded format, but presents some problems when you are trying to 
reconstruct the logical records on input. 

When the station punches a binary file, it does not punch W control words. Thus, there 
is no way for you to know whether the data consisted of one or many records before it 
was punched or where the end-of-records occurred. Usually, the deck results from a 
single output statement and consists of a single record, the maximum size of which is 
limited only by the maximum for W records. 

You can implicitly request formatted punched binary output by writing on the PUNCHB 
file, or you can explicitly route a punch file to a station by using the DISPOSE control 
statement. 
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Example 9-9 shows compiler output being directed to PUNCHB instead of to LGO. 



CONTROL DATA 



FORTRAN CODING FORM 




<.fi column ont 
FlORTRJAN SCIRCE)| 



QIHW\ In iolwn 



Writes binary on 
PUNCHB, not LGO 



Loads object module 
and begins executlor 




Example 9-9. Punching Binary Output from Compiler 



FREE-FORM BINARY PUNCHED CARDS 

Any file containing unblocked W records can be punched in free-form binary. There 
is no system file that is automatically routed to a station and punched in free-form 
binary. You can request free-form binary only through the DISPOSE statement. 

When the station punches free-form binary cards, it precedes and follows the deck with 
a free-form flag card. 

W control words are not punched. Thus, there is no way for you to know by examining 
the deck whether the file consisted of one or many records or where the end-of-records 
occurred. On input, the deck will be divided into 160-character W records. 



ROUTING PUNCH FILES TO STATIONS 

If you have a mass storage punch file other than PUNCH and PUNCHB, you can route it 
to a station and have it punched by placing a DISPOSE statement after the job step that 
last uses the file. You cannot dispose staged or on-line magnetic tape files (remember 
they are blocked). 

You can dispose permanent files at the 7600 but not at the 6000/CYBER 70 Stations. For 
tape files, you can copy the data to an unblocked file and then dispose the copy. 



f 



DISPOSE(lfn, disposition) 



Disposition is a 2 -character code designating the punch format, as follows: 

PU Punch Hollerith (026) coded format 

PB Punch SCOPE binary 

P8 Punch free-form binary 

PA \ 

PZ I Reserved for future use 

P9 I 
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Forms Control 

If you want to punch special cards, notify the operator by expanding the disposition code. 
For example, 



piSPOSE(lfn, Px=Cyy) 



yy is a 2 -character code unique to your installation. Check with your system analyst or 
the operator to determine what codes, if any, have been assigned to your installation. 
When your file is routed to the station, the operator is informed via a console display 
message that he must assign a punch and load the cards you requested into the punch 
hopper. Your file is punched when he informs the system that he has taken the re- 
quested action. 

Other options for disposing punch files resemble those described for print files, page 9-14. 

Example 9-10 shows card input being copied to free-form binary. INPUT is copied to 
file FFB, which is disposed as P8. You will receive an exact copy of the input deck 
if it is in free -form binary. If the input deck is in coded format, the output will be 
compressed. If the input deck is SCOPE binary, the data in columns 3 through 77 will 
be copied onto the free-form binary cards. 



CONTROL DATA 



joe,cP7o. 

C0Pt<INPLT,FF8) 
0ISP0SE(FFB,P8) 
7/5/9 in column ont 

(CARDS TO BE PUNCHED 

6/7/8/9 In column one 



Example 9-10. Punching Free-Form Binary 
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COPYING AND POSITIONING FILES 10 



This section presents the general principles of copying files. It does not consider the 
impact of factors such as code conversion, labels, station choice, device type, etc. 
The impact of these factors on files in general is covered in previous sections. 

INTRODUCTION TO COPY ROUTINES 

Users familiar with 6000 SCOPE 3.4 and earlier systems will be accustomed to the idea 
that a COPY statement is tailored to a specific purpose and that the contents and format 
of the output file exactly duplicate the contents and format of the input file Thus 
COPYBF served to copy a binary file and COPYCF served to copy a coded file. SCOPE 
3.4 copy routines do not use record manager. Files are copied as binary or coded. 
Any FILE statements are ignored. 

Under SCOPE 2, the copy routines all use the record manager, and as a result, the 
scope of the copy routines has been broadened considerably. Indeed, a copy as formerly 
viewed, becomes a special case - a case in which conversion does not take place. In 
this context, conversion means file redefinition, that is, any change between the copy 
input file and the output file record type, block type, or -file organization. This is not 
to be confused with character code conversion which is described m Section 6, Magnetic 
Tape Files. 

Copying of files generally has no effect on the data in the record. In some cases, how- 
ever if the record type has changed between the input file and the output file, the re- 
cord' is expanded to a new fixed length or is truncated as required by the new record 
type. (See Appendix E, Using Record Manager for File Conversion. ) 

HOW TO COPY FILES 

Copying files involves the following steps. 

Selecting a COPY statement 

Describing the formats of the input file and the output file 

Specifying the size of the copy buffer 

Copy routines open the files for I/O. This initiates prestaging of the input file, if 
necessary. The routines do not reposition the files before copying. Upon completion, 
copy routines do not close the files. A message is placed in the dayfile stating the 
number of EOR, EOS, and EOP delimiters encountered during the copy. The routines 
do not copy labels. 

SELECTING THE COPY 

For all copies, the default input and output files are INPUT and OUTPUT; the default 
number of records, sections, or partitions (n) is 1. 
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COPY 



FILE 



COPYP 

COPYCF 

COPYBF 



COPYS 

COPYCR 

COPYBR 



PARTITION I 



SECTION I 



COPYR 



RECORD I 



PARTITION 2 



SECTION 2 



RECORD 2 



PARTITION k 



SECTION m 



RECORD n 



PARTITIONS 
CAN BE ON 
W- RECORD TYPE 
OR BLOCKED 
SEQUENTIAL FILES 



SECTIONS CAN BE 
ON W- RECORD 
TYPE FILES OR 
FILES WITH Z 
RECORDS AND 
C-BLOCKIN6 
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Figure 10-1. Selecting the Proper Copy Statement 



File 



™V^^Zl? fUe fr ° m itS CUrrent P° sition to end-of-information, use the followin £ 



control statement. 



COPYQfn. ,lfn J 
in out 



Example 10-1 shows COPY being used to copy the data on INPUT to file TAPE1. 



CONTROL DATA 



FORTRAN CODING FORM 



?0. 
, TAPEtL) 



joa,c|p 

FTN. 

C0PY( 

LGC-* . 

7 '1/9 lot cjotlunn ont 

(FlDRTRJAN SOLRCE) 
7y8/9 (qico4wnn one. 

(DlATA) 
7/S/9 Livil 17 

<Jd|a T fl ) 
6jf7/B/9\A.n aplumn ont 



-? 



Reads from TAPE I 



Data copied onto 
TAPE I 



Example 10-1. File-to-File Copy 



10-2 



60372600 A 



Records 



When copying records, use the following control statement. 



f 



COPYR(lfn. n ,lfn out ,n) 



The number of records (n) is expressed in decimal. 



Example 10-2 illustrates a job that effectively skips 100 records by copying them to a 
scratch file. It then copies the next 100 records to the OUTPUT file. 



CONTROL DATA 



J08,CP70. 
STAG£(SA*PLE> 
C0PYR<SAKPLE, NULL, 100) 
CCPYR(S/JfFLE,,100) 
6/7/S/9 in column one 



Sections 



Example 10-2. Copying Records 



When copying sections, use one of the following control statements: 



(' 



COPYS(lfn. n ,lfn out ,n) 



COPYBR(lfn. n ,lfn out ,n) 



fCOPYCR(lfn. n ,lfn out ,n) 

The results are identical regardless of the statement used. However COPYBR and 
COPYCR provide a degree of compatibility with SCOPE 3.4. COPYS is not available 
under SCOPE 3.4. 

Copying sections is meaningful only when the input record type is W, or is S or Z 
with C blocking. In the special case of copying S records, each S record becomes a 
W section. 

Upon completion of the copy, an EOS delimiter is written on the output file. The number 
of sections (n) is expressed in decimal. 
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In Example 10-3, the program reads from files TAPE1 and INPUT 
section on INPUT is copied onto TAPE1. 



The first data 



CONTROL DATA 



FORTRAN CODING FORM 



J0B,qFj7U. 

TN. 
C0PY(jf^(,TA 
LGO. 
TZ/9 



PE1 W 



7 



Copies first data 
section to TAPE I 




Partitions 



Example 10-3. Copying Sections 



When copying partitions, use one of the following: 



^COPYPdfn. ,lfn ., n) 
J in out 

f^COPYBFdfn. ,lfn „n) 
in out 

r^COPYCFdfn. ,lfn ~~n~) 
I in* out* 

The results are identical regardless of the statement used. However, COPYBF and 
COPYCF provide a degree of compatibility with SCOPE 3.4. COPYP is not available 
under SCOPE 3.4. avanaoie 

Copying partitions is meaningful for W record type files (either blocked or unblocked) 
and for blocked files using other record types. It is not meaningful for unblocked 
sequential or word addressable files. Also, if you are performing a U to U copy of a 
file that contains W records or S or Z records with C blocking, the partition delimiters 
inherent to the original record type will not be recognized. 
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The number of partitions to be copied is expressed in decimal. Upon completion of 
the copy, an EOP is written on the output file. In Example 10-4, file A is a tape 
containing several partitions. Since it contains F records, partitions are indicated by 
tapemarks. The job copies the first five partitions to file B. File B is then post- 
staged to magnetic tape. 



CONTROL DATA 



JOB,CP70. 

FILE(A,RT=F,FL=80) 

FILE(E,RT=F,FL=eO) 

STAGF(A) 

STAGE(8,P0ST) 

CGPYP<A,6,5) 

6/7/8/9 in column onz 



Example 10-4. Copying Partitions 



FILE DESCRIPTIONS FOR COPIES 

Describe your input file and output file exactly the same, using FILE statements if 
necessary. The SCOPE 2 COPY routines do not check to see that the output file des- 
cription matches the input file description. For an exact copy, make sure that both 
files are either unblocked or blocked by specifying the BT parameter. Be especially 
careful of this when copying to or from magnetic tape since a magnetic tape file is 

li- -1--J r J~J?~,,14- ~»,,J ^~r-r- r-.+ ^v*orYQ o n ^1 unit r<onnyH fiTfiQ arA linhlnpkpd. YOU Can. of 

DiOCKfcJOL Uy UClclUlL clliU iiictoo oiuxagi, cl±±kj. umi, -l v- v-v^ ^ ^^.^.^^ **.*. ~ -* - -~ , 

course, purposely use this feature to block or deblock a file. The fastest copy occurs 
when both files have record type W. Deleted records on the input file are not copied 
to the output file. The record manager recognizes and regenerates all EOS and EOP 
delimiters (zero length W control words). However, the W control words on the new file may 
not compare bit-for-bit with those on the original file because the irrelevant fields on the new 
control words are not zeroed but are filled with transient information. 



When the input file does not contain W records, redefining it as record type U is most 
efficient because there is much less data manipulation required by the record manager. 

Example 10-5 illustrates a job that stages in a tape as record type U, block type K, 
copies it, and stages it out. Both tapes are recorded in odd parity (binary mode) at 
800 bpi and are unlabeled. 

The input tape consists of 5120-character blocks that actually contain a variable number 
of records in record mark (R) format. By defining the file as U type rather than R 
type, the R records are simply copied as data without being examined on input or output. 
This' is a considerably faster mode of copying than defining the files as R record type. 
Upon completion of the copy, the dayfile actually contains a block count instead of a 
record count. 
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CONTROL DATA 



J08,CP7Q. 

STAGE(TAPEi) 

FILE(TAPEl,PT=lf 

STAGE(TAPE2,POST) 

FILE(TAFE2,RT = lJ)^ 

C0PY(TAPEi,TAPE2> 



Describes InDut tape 



■(Describes output taoe 




6/7/8/9 In column one ^ 



Example 10-5. Copying a Tape as Record Type U, Block Type K 

SPECIFYING BUFFER SIZE 

Check to see that the copy buffer is adequate for the copy. When SCM dynamic memory 
assignment is in effect, the size of the buffer used for copying will be the default maxi- 
mum record length (5120 characters) unless a different MRL is specified on a FILE 
statement. MRL or FL can be specified for either file or both the input and output files. 
The copy routine uses whichever explicitly defined MRL or FL is larger for the two files 
Thus, if no MRL or FL is specified for the input file and MRL = 88 is specified for the 
output file, the buffer size used for the copy is 88 characters. 

For T- and D-type records, MRL must be large enough to include the count field. Other- 
wise, MRL can be less than the actual record size. If records are short, it is desir- 
able that MRL be specified to reduce core requirements. Copies are more efficient 
when the actual MRL for the files is specified. 

Example 10-6 illustrates a tape-to-tape copy of SCOPE logical (S) records. The longest 
record on the file is 10000 o characters. 



CONTROL DATA 



,J0E,CP7U. 

STAGE (A) 

STAGE(E,PCST) 

FILE(A,RT=S,KRL=1000D) 

FILE(E,RT=S,NRL=10000) 

CGPY(A,E) 

6/7/8/9 in column ont 



Example 10-6. Setting MRL 
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POSITIONING SEQUENTIAL FILES 

Sequential files often require repositioning before or after their use. This is not true 
for files using other file organizations (for example, word addressable). A control 
statement request to position a file usually initiates staging in if the file is a prestaged 
file that has not yet been staged in. REWIND is an exception; it does not initiate staging. 
For on-line tapes and for tapes staged by volume, the operator is told to mount tapes 
if additional volumes are required to complete the positioning request in the forward 
direction. Staged tapes are rewound to the beginning of information but on-line tapes 
are rewound to the beginning of the current volume. Neither staged or on-line tapes can 
be skipped backward past the beginning of volume. 

POSITIONING FILES FORWARD 

Skipping Records Forward 

SCOPE 2 does not have a SKIPF statement for skipping records forward. A technique 
that can be used to skip records is that of copying the records to be skipped onto a null 
or dummy file. Example 10-7 illustrates this technique. 



CONTROL-DATA 



J08.,CP70. 

STAGE(INP) 

C0PYR(INP,NULL,2) 

C0PYR(INP,CUT,2) 

C0PYR(INP,NILL,2J 

RETURN (NULL) 

: \ 

6/7/S/9 in column onl 



~1 




Position file at 
third record 



I 



Copy third and 
fourth records 



Skips fifth and } 



s i xth records 



1 



Returns file to 
conserve disk spac<? 



Example 10-7. Skipping Records Forward 
Skipping Sections Forward 

SCOPE 2 provides a SKIPF statement that can be used for skipping sections forward on 
those file types that support sections (Z with C blocking and W) and as a special consi- 
deration, can be used for skipping S records. The statement has the following format: 



SKIPFQfn, n) 
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Parameter n is a decimal count of the sections (or S records) to be skipped, 
default is 1. 



The 



The SKIPF terminates at EOI if it fails to encounter the requested number of sections 
or S records on the file. Encountering an EOP does not terminate the skip nor is the 
EOP included in the count of sections - unless it is also an EOS. That is, on W re- 
cords, the EOP is counted if it is not immediately preceded by an EOS W control word. 

Example 10-8 illustrates skipping of sections forward followed by a tape-to-print copy 
of 10 sections. 



CONTROL DATA 



J08,CP70. 
STAGECCALJ- 
SKIPF(CAL,2)- 
COPYS(CAL,,10), 
6/1 /S/9 Ih co&irm'Ve. 



CAL contains 

l-b locked W records 



Skips to third 
section 



Copy next 10 section 
onto OUTPUT 



} 



Example 10-8. Skipping Sections Forward 

Skipping Partitions Forward 

SCOPE 2 provides a parameter on the skip forward statement (SKIPF) for skipping parti- 
tions on files having record types W, F, and R, or having record types X, S, and Z 
with C blocking. Skipping is possible on files having D, T, or U records if the block 
type is K and records per block are 1. For these record types, skipping forward can 
be achieved by copying partitions to a null file. 

To indicate that partitions rather than sections are to be skipped, the third parameter on 
the SKIPF statement must be 17g. 



SKIPF(lfn,n, 17) 



The skip terminates at EOI if it fails to encounter the requested number of partitions 
on the file. The default for n is 1. 

NOTE 

SCOPE 3.4 allows a fourth parameter, the mode 
parameter, or SKIPF and SKIPB. This parameter, 
if present, is ignored by SCOPE 2. 



10-8 



60372600 A 



Example 10-9 illustrates skipping of partitions on a file divided into four partitions, one 
for each quarter of the year. Each partition consists of three sections, one for each 
month in the section. 



J08,CP7Q. 

STAGE (MONTHS) ^ 

SKIPF(PCNTHS,3,17) 

COPYSCKCNTHS)-* 

6/7/8/9 in column ont 




Position f Me at 
fourth quarter 



l 



List data for Octob- 
er only on OUTPUT 



Example 10-9. Skipping Partitions Forward 

Skipping to End-Of-Information 

For compatibility with 6000 SCOPE systems, SCOPE 2 issues a skip to end-of-informa- 
tion upon encountering the following: 



f SKIPFQfn, 262143) 



The statement is a no-op if issued when the file is at EOI. Example 10-10 illustrates 
skipping to EOI. The user knows the data is in the last partition on the file but he 
doesn't know how manv nartitions are on the file. 



COBOL CODING FORM ,. 



J0B,CP 

C0S0L. 

STAGE( 

SKIPF( 

SKIPF( 

LG0. 

7/S/9 

(C 
6/7/8/9 



•Ml 



70. 

DATA) 

CftTA, 

ATA, 




Skip forward to EOI 



2621^3) 
,17)-* — 



Skip backward 
one partition 



column owe 

ECL SOURCE PROGRAM) 

•4n column one. . 



Example 10-10. Skipping to End-Of-Information 
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As an added option on the FILE statement, you can specify OF=E to position a mass 
storage file at EOI when it is first opened. This is convenient when extending a per- 
manent file. 



f 5 



FILE(lfn, . . .,OF=E) 



POSITIONING FILES BACKWARD 

Skipping Records Backward 

SCOPE 2 does not have a SKIPB statement for skipping records in the reverse direction. 
The user must rewind the file and copy records to a null file. 

Skipping Sections Backward 



SCOPE 2 provides a skip backward statement (SKIPB) and a backspace statement (BKSP) 
for skipping sections in the reverse direction on those files that support section delimi- 
ters (Z with C blocking and W) and as a special consideration can be used for skipping 
S records backward. The statement formats are: 



r SKIPB(lfn.n) 

( / BKSP(lfn,n) 

Parameter n is a decimal count of sections to be skipped. The default is 1. The SKIPB 
or BKSP terminates at EOP or BOI if it fails to encounter the specified number of 
sections. 

For INPUT and other system files, the system terminates the file with an EOS /EOP /EOI 
sequence. In this case, if you are at end-of-information you cannot skip sections back- 
wards because the first EOP terminates the skip. 

Example 10-11 illustrates how BKSP can be used to reposition the INPUT file. In this 
example, INPUT is backspaced one section before the second execution of LGO. LGO is 
loaded and executed twice using the same data. 
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Example 10-11. Skipping Sections Backward on INPUT 

Skipping Partitions Backward 

SCOPE 2 provides a parameter on the skip backward statement (SKIPB) for skipping par- 
titions in the reverse direction. Skipping backward is possible on files having record 
types W, F, and R or having record types S, X, and Z with C blocking. Skipping is 
possible on files with D, T, or U record types if the files are described as BT=K and 
RB = 1. 

To indicate that partitions rather than sections are to be skipped, the third parameter 
on the SKIPB statement must be 17q. 

/ ~~ 

f SKIPBUfn, n, 17) 

Parameter n is the number of partitions to be skipped. The default is 1. The SKIPB 
terminates at BOI if it fails to encounter the requested number of partitions. 

Skipping to B eginning-Of -Information (Rewinding) 

Use the REWIND statement to position one or more files to beginning- of- information (BOI). 
REWIND does not initiate staging of a prestaged file or transfer of a 6000 Station perma- 
nent file. 



REWINDOfn^lfn , . . . ,lfn n > 
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For compatibility with 6000 SCOPE systems, SCOPE 2 issues a rewind upon encountering 
either of the following statements: 



6 



SKIPB(lfn, 262143) 







BKSP(lfn, 262143) 



Either statement initiates staging if it is used before a file is prestaged. These state- 
ments are no-ops if issued when the file is at BOI. 

Specifying Rewind or No Rewind on Open or Close 

The OF = p and CF=p options on the FILE statement are allowed for specifying rewind (R) 
or no rewind (N) of a file when it is next opened (OF) or closed (CF). 



fi 



FILEQfn, . . . , OF=p, CF=p) 

These options may conflict with macros internal to the program causing unpredictable 
results. In addition, since the loader does not open a file before loading from it, the 
parameters are not relevant for load files. 

WRITING FILE DELIMITERS 

A user can insert new delimiters when copying from one record type to another by 
writing null sections or partitions at the point at which the delimiter is desired. An 
attempt to write an end-of-section on other than Z with C blocking or W-type files is 
ignored except for S records where it causes a zero-length record. 

COMPARING FILES 

The information stored on one file can be compared with that stored on another file to 
see whether the contents of both units are identical. Often the comparison is desirable 
after copying to assure that the input file was copied without error. Labels, if present, 
are not compared. With SCOPE 2, because COMPARE uses the record manager, it is 
possible to compare files that are exactly identical, including record and blocking struc- 
ture, or if you have changed the record type or blocking structure, it is possible to 
compare just the data in the logical records. To perform an exact comparison, both 
files must be defined the same. For the most straightforward and fastest comparison 
of two mass storage files, define them both as record type U, unblocked. For this 
comparison the record manager does not manipulate the data. 

NOTE 

The two files will fail to compare using the U 
definition if they were copied using W definition. 
This occurs because records marked as deleted 
from the input file were not copied onto the out- 
put file and because zero-length W control words 
are not precisely duplicated. 

For a logical comparison, the record manager gets records from the two files and com- 
pares just the data (without W control words, zero bytes, blocking control, etc. ). The 
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record types do not have to be the same. Thus, even though you have changed the 
logical structure of the data by copying to a different record type or block type, you 
can compare the data on the files as long as the copy did not add or delete any file 
delimiters (EOS or EOP). An exception is S records which can be compared only with 
S records. That is, if one file is S record type, both must be. (The restriction does 
not apply to Z records with C blocking. ) 

Comparison begins at the current position of each file and moves ahead record-by-recorc 
In addition to comparing the contents of each pair of logical records, COMPARE checks 
file delimiters to see if they are the same level. They must match to produce a good 
compare and for the compare to continue. For example, if EOP status occurs on one 
file while EOS status occurs on another, the compare terminates. 

COMPARING SECTIONS 

Unless you specify otherwise, a compare will compare the contents of one section on 
one file with the contents of one section on another. If the file type does not support 
sections, the compare will terminate on an EOP or EOI. 



COMPARE(lfn 1 ,lfn 2 ) 



Using the preceding statement, one section will be compared. To specify more than one 
section, follow lfn 9 with a decimal count of the number of sections to be compared. 

COMPARING PARTITIONS 

The COMPARE statement includes a fourth parameter that allows you to specify that 
partitions rather than sections be compared; n then specifies the number of partitions. 
If n is omitted, its comma must still appear. Parameters on COMPARE are position- 
ally dependent. 



/ 

\ COMPARE(lfn 1 ,lfn 2 ,n, 17) 

The 17 indicates partitions. If the file type does not support partitions, the comparison 
continues to EOI. 

Example 10-12 illustrates a job that copies and compares a complete file. Both files 
are described as record type U, block type K. Each record/block is 137 characters. 
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CONTROL DATA 



J0B,CP7U. 

STAGE(X) 

STAGE(Y,PCST) 

FILE(X,RT=U,PRL=137) 

FILE(Y,RT=U,^RL=137) 

COPY(X,Y) 

REkINC(X,Y> 

COMPARE(X,Y> 

6/7/8/9 in column one. 



By default, block 
type is K, records 
per b lock is one 



Example 10-12. Copy and Compare Files 

Example 10-13 illustrates a job that copies and compares the fifth partition on file 
FDATA. The input file contains K-blocked F records, the output file contains unblocked 
W records. 



=L 



CONTROL DATA 



Pes ition in nut file 
at fifth partition 



JOB,CP70. 

FILE(FCATA,RT=F, 

STAGE(FCATA) 

'SKIFF(FCATA,<4,17 

COPYCF (FCAT0,fcnATA) 

fiEfclNO(fcCATA) 

SKIPE(FCATA,,17) 

COMP ARE (' FDATA, ViCATA,, 17). 

6/7/8/9 In column onz 




Reposition f I les 




Example 10-13. Logical Compare of F Records and W Records 
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COMPARING S-RECORDS 

When comparing S-type records, you can specify any level from to 17 g as the fourth 
parameter and the COMPARE will terminate when it has encountered the specified number 
of records that have a level number equal to or greater then the level specified. 

ERROR RECORD COUNT 

If your file contains a very large number of error records in one section or partition, 
or is not divided into sections or partitions, you can indicate the number of error re- 
cords to be compared before termination through a decimal count (r parameter). Re- 
member, the parameter is positionally dependent - the e parameter is described in the 
following text. The default for r is 30,000. 

The r count will terminate the compare even if n sections, S records of level lev, or 
partitions have not been encountered. 



COMPARE(lfn 1 ,lfn 2 n,lev, e,r) 



LIST CONTROL PARAMETERS 



The previously mentioned COMPARE statements produce only messages in your dayfile, 
for example, UT070 GOOD COMPARE or UT071 BAD COMPARE. You can indicate on 
the COMPARE statement that you desire a listing of a specified number of noncomparison 
word pairs and a file to receive the noncomparison output through the e parameter and 
+ he Ifn parameter. e is expressed as a decimal number; the default is zero, Ifn.- is 
a file name; the default is OUTPUT. If you specify other than OUTPUT, you are res- 
ponsible for having the file listed; for example, you can list it through a DISPOSE 
statement. 



j / COMPARE(lfn 1 , lfn 2 , n,lev, e, r , a, lfrig ) 



Example 10-14 illustrates a request for list output generated by a literal comparison of 
U record input and output. 
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J06,CP7Q,MT1. 

FILE<TAFEl,RT=l) 

f ILE(TAPE2,KT=l) 

REQUEST <TAFE1,MT) 

STAGE(TAFE2,FCST) 

C0PY(TAPE1,TAPE2) 

REkIND(TAP£l,TAPE2) 

COMPARE(TAPP1,TAPE2,2 5,17,1QO,,AE'CRT,TAFE3) 
EXIT(S) 

DISP0SE(TAPE3,PR) 

6/7/S/9 aji column onz 



1 




Abort job If comnare 
is bad 



Write error output 
on fi le TAPE3 




/ 



List up to 100 non- 

comnarfson words 

in each record 



200 partitions 



Example 10-14. Literal Copy and Compare of Tapes Described as U Records 

ABORT PARAMETER 

Normally, a bad comparison produces only informative messages; the job is not termi- 
nated. If you wish to specify job termination on a bad comparison, enter a nonblank 
value for the a parameter. 



COMPAREQfnj, lfn 2 , n, lev, e, r, a, lfn 3 ) 



Remember that the parameter is positionally dependent. Example 10-14 illustrates this 
feature. Notice that one of the tapes is on-line, the other is staged. 



10-16 
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INTRODUCTION 



As you learned earlier, a file is generally identified by a logical file name assigned 
when the file is created. In addition to logical file names, labels containing further 
identification can be associated with a file. The primary purpose of a label is to 
uniquely identify the file. Other uses depend on the type of label and the device on 
which the file is stored. 

Currently, labels can be used only for magnetic tape files. All other files are con- 
sidered unlabeled. 

LABELS ON MAGNETIC TAPE 

On magnetic tape, labels can be associated with each file recorded. These labels 
serve the following purposes: 

1 Like the logical file name, the label can be used to identify a file. It also 
contains such information as the edition number and creation data to further 
differentiate one file from another in the system. Similar labels identify the 
volume \reei 01 tape; ui± wm.»-i± a. j.a^^j.^^ ^^ ^„^„~~. 

2 A label can protect a file from accidental destruction by preventing a user from 
writing on the file until the expiration date specified on the label has elapsed. 

USERS 

The most predominant users of labeled files on tape are COBOL programmers For 
this reason, the information and examples in this section are directed primarily toward 

them. .Labels may aiso oe useu uy lhuog piugiaxmui^ — ^„^~~ & _i_ _„ 

FORTRAN and COMPASS. The procedure for labeling in FORTRAN is described in the 
FORTRAN Extended and FORTRAN RUN Reference Manuals. 

STANDARD LABELS 

Labels used most commonly for files processed under SCOPE 2 are written in the 
standard format. This format conforms to the American National Standards Institute 
(ANSI) Magnetic Tape Labels for Information Interchange X3. 27-1969 Specifications. 
This standardization means that magnetic tape labels created in this format can be pro- 
cessed under many other computer systems. Standard labels are described further in 
Appendix C. 

REQUESTING STANDARD LABELED TAPES 

To snecifv that a label is to be generated on an output tape or that a label exists and 
^sto P be checked requires parameter specification on the STAGE or REQUEST statement 
for the file. 
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To specify creation of a new label, place N on the statement; to specify checking of an 
existing label, place E on the statement. If neither parameter is used! the fi is 
assumed to be unlabeled. If E (existing label) is specified and the file is opened for 
output, a new label is created. N has no significance when prestaging 



/ MT 


N 


REQUESTQfn, 


., ) 


NT 


E 



or 



MT N, POST) 

STAGE(lfn, 

NT E) 



tat^t ♦ ? g ( + ° r °™ ltted) or readin S <R) ^n, as an alternative, be supplied on a 
LABEL statement. This specification, if a LABEL statement is supplied, takes prece- 
dence over the N or E parameter on the STAGE /REQUEST statement! To specify crea- 
tion of a new label, place W for write on the LABEL statement. For checking an 
existing label, place R for read on the statement. The statement must precede the 
first use of he file. Parameters after Ifn describe label field values as explained in the 



LABEL(lfn, *,...) 



PROVIDING STANDARD LABEL INFORMATION 

The information used to generate or check the label is usually supplied through the 
source language program. If no information is provided by the user program or if the 
user wishes to override the information, he can supply a LABEL statement for the file. 

NOTE 

The LABEL statement does not require the exis- 
tence of a REQUEST or STAGE statement for the 
file. It can be used to label a blocked sequential 
mass storage file. However, permanent files at 
the 6000 Station cannot be labeled. 

Specification of characters other than A through Z and through 9 is possible by using 
$ delimiters. For the file identification field, for example, specifyingV value limits 
\ h \ Cl f r T ters m „ the Strmg to A through Z and ° through 9, but by using the form 
L=$value$ any of the 63 characters in the subset can be used. However if a doTlar 
sign is to be significant in the string, it must be represented as $$. To' specify the 
actors : * * FILE%+FILE **' delimi t the string as follows in display code char 

$*FILE%+FILE$$*$ 

Label Creation Information 

The contents of label fields are generated as described in the following paragraphs 
using values supplied on the LABEL statement. An exception is the VSN field in the 
stat 6 r Label * information for which is supplied on the STAGE or REQUEST 
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File Identifier 

If no file identifier is specified, the system uses the logical file name (lfn). To supply 
a file identifier, use the L=value parameter on the LABEL statement. The value is 1 
to 17 alphanumeric characters. Remember to delimit characters other than A through 
Z and through 9 with the $ delimiters. 

Set Identification 

If no set identification is specified, the system uses blanks. Specify a name for a _ 
multifile volume by using the parameter M=name, where name is 1 to 6 alphanumeric 
characters. 

File Section Number 

If no file section number is specified, the system uses 0001 for the first volume, 0002 
for the second volume, etc. Setting this parameter on an output file would be highly 
irregular and would cause sequencing to begin at the specified value. The parameter 
that would reset the file section number is V=n, where n is 1 to 4 digits. 

File Sequence Number 

The file sequence number applies only for a multifile volume. 

The system uses 0001 for the first file, 0002 for the second file, etc., if no file sequence 
number is specified. Setting this parameter on an output file would be^ highly irregular 
and would cause sequencing to begin at the specified value. The parameter ma. woiUu 
reset the file sequence is P=n, where n is 1 to 4 digits. 

Generation Number 

The default for the file generation number is 0001. Specify a new number through the 
parameter G=n, where n is 1 to 4 digits. 

Generation Version Number 

The default for the generation version number is 00. If you wish to use the field to 
designate successive iterations of a file, specify the E=n parameter where n is 00 to 99. 

Creation Date 

The default value for the creation data is the current date. Supplying some other date 
is unusual but can be done by supplying the parameter C=yyddd, where yyddd specifies 
the date in Julian format. 

Expiration Date 

The default date for the expiration date is the current date. A different date can be 
supplied as a number of days which will be converted into Julian form before it is 
placed in the label, or it can be supplied in Julian form. To supply a number, use 
the parameter T=n, where n is 1 to 4 digits. To supply a Julian date, use the para- 
meter U=yyddd. 
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Example 11-1 illustrates a COBOL program that supplies label values for creation 
Information for the label is obtained from the data card. Notice that the program' sets 
the file identification field to LBTAPE. The date written field is zeroed the reel 
number and edition number fields are set to 1, and the retention cycle field is 10 The 
user has overridden the file identification field by renaming the file NEWLIB and has 
set the retention cycle to 100 by specifying T = 100 on the LABEL statement. 

Label Checking Information 

When reading a labeled input file, the user can supply information on a LABEL state- 
ment to be used for checking the label and for defining the initial volume to be read and 
tne initial position on the volume currently mounted. 

File Identifier 

If no file identifier is specified, the file identifier is not checked. A file identifier can 
be supplied in the user program through the compiler language or COMPASS language 
program or can be specified on the LABEL statement in the form L=value The value 
must match the character string used when the file was generated. 

Set Identification 

If no set identification is supplied by the user program or on the LABEL statement, no 
check is made. To specify the value on the LABEL statement, use M=name, where 
name must match the character string used when the file was created. 

File Section Number 

If no file section number is supplied by the user program or on the LABEL statement 
processing of the file begins with volume 1. To specify a volume when you wish pro-' 
cessing to begin at other than the first volume, use the V=n parameter on the LABEL 
statement. Remember, however, to also specify the correct beginning VSN on the cor- 
responding STAGE or REQUEST statement. Both the file section number and the volume 
serial numbers must match those on the mounted tape. 

File Sequence Number 

When no file sequence number is specified by the user program or on the LABEL state- 
ment, the first file on the volume of a multifile volume is processed. To specify that 
processing is to begin at other than the first file, use the P=n parameter on the LABEL 
statement. 

Generation Number 

In no generation number is specified by the user program or on a LABEL statement 
no check is made of the field. To specify a generation number on the LABEL state- 
ment, use the G=n parameter where n must match the number specified when the file 
was generated. 

Generation Version Number 

The generation version number is always checked. If no number is specified for check- 
ing by the program or on a LABEL statement, the record manager uses 00. To specify 
a generation version number, use the E=n parameter where n must match the number 
specified when the file was generated. 
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COBOL CODING FORM 



0,NT 
(LET 



1. 
APE,NT,N,H 



J08,CP|7 

REQUES 

LABEL (|L 

COBOL. 

LGO. 

7/8/9 in column one. 



Y,EB> 
ETAPlE,L = NEWLIE,T = iOO> 



identification DIVISION. 

BWRT. 



PRCG 
CATE 
ENVI 
CCNF 
SOUR 



FILE 

DATA 
FILE 
FD T 



WORK 



RAM-ID. CC 
-COMPILED. 
RCNMENT CI 
IGURATION 
CE-CCMPUTE 
OEJECT-CCMPLTE 
INPUfl-OlTPUT S 
CONTROL. 
SELECT TAF 
DIVISION. 
SECTION. 
APER 

LABEL RECC 
CATE-V. 
REEL-N 
EOITIO 
RETENT 
CATA R 




Data Is odd parity, 
binary mode; label 
is EBCDIC coded mode 
on 9-track tape unit 



Fi le identification 
and expiration date 
are redefined by 
LABEL statement 



I OT ADC 



02 TAPE-REC PICTLRE 

ING-STORAGE SECTION. 

77 CMR-1 PICTLRE IS 

01 OATA-CARD. 

02 LAENAME PICTL 
02 CATNAM PICTUR 
02 RLNUM PICTURE 
02 EONUM PICTLRE 
02 RETCYC PICTUR 

ECURE DIVISION. 

N. 

ACCEPT CATA-CARD. 

CFEN OLTPLT TAPER. 

-TC-TAPE. 

ACCEPT TAPE-REC. 

hRITE L8TAPE. 

ADD 1 TC CNTR-1. IF 

3 

GO TC CARC-TC-TAPE. 
FIRST-CLCSE. 

CLOSE TAPER. 

STOP RUN. r 



PRCC 
8EGI 



CARD 



VISION. 
SECTION. 
R. 7600. 
R. 7600. 
ECTICN. 

ER ASSIGN TO LBTAFE. 



RD IS STANCARC VALLE CF IC IS LABNAME 

RITTEN IS CATNAf 

UMBER IS RLNUM 

N-NUHEER IS ECMM 

ICN-CYCLE IS RETCYC 

ECORD IS LETAPE. 

IS >(€0). 

99 VALLE IS ZERO. 

RE IS X(15) VALLE IS SPACES 
E IS ?(6) VALLE IS ZEROES. 

IS 9(<«> VALUE IS ZERCES. 

IS 9(2) VALLE IS ZERCES. 
E IS 9(3) VALLE IS ZEROES. 




Example 11-1. Using LABEL Statement for Label Generation With COBOL Program 
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Creation Date 



If no creation date is specified by the user program or on a LABEL statement, no 
check is made of the field. Specification of a creation data for label checking is not 
conventional but can be specified through the C=yyddd parameter on the LABEL state- 

m orrf 



ment. 



Expiration Date 



If the T or U parameter is supplied for input, the expiration date is checked. If the 
file is opened for output, any existing label on the file is checked against the current 
date. If the date is unexpired, the tape cannot be written on without operator permis- 



sion. 



Other Fields 



The record manager does not check any other fields. For example, it does not check 
the owner identification field or accessibility fields. 

In Example 11-2, suppose that we want to use the labeled tape file created by the pro- 
gram in Example 11-1 as input to another COBOL program. For simplicity, let us 
assume that the sole purpose of the program is to print the contents of the file; the 
contents of the label will be checked when the file is opened. In most cases where 
labeled files are used, much more intricate or varied processing occurs; but the prin- 
ciples of referencing and checking labeled files remain the same. In this example, 
the tape created on-line is prestaged. 

PROTECTION OF UNEXPIRED LABELED TAPES 

Any output tape, in addition to requiring a write enable ring, cannot be written on with- 
out operator consent if it contains a label having an unexpired date. All tape drivers 
before writing on an output tape check the mounted tape for a label. If the tape is 
unlabeled, writing begins. If the tape is labeled and contains an unexpired date, the 
operator must respond by replacing the tape or by indicating that it can be written on 
before writing can begin. 

COPYING LABELED TAPES 

The copy routines (Section 10) can be used for copying labeled tapes as well as unlabeled 
tapes. If the input tape contains a label, the label is checked but is not copied to the 
output file. Copying begins after the HDR1 label and terminates before the EOF1 label 
Labeling of the output file requires that the STAGE or REQUEST contain an N parameter 
or that the LABEL statement contain the W parameter. The output tape will be "blank- 
labeled" if the STAGE or REQUEST for the output tape specifies N and there is no 
accompanying LABEL statement. When the LABEL statement is present, the record 
manager uses it as the source of label information. When labeling is specified, the 
tape to be copied must not be a multifile volume. The copy routines cannot handle 
more than one labeled file on a volume. 

If you want to copy the labels as well as the data on a file, or if you want to copy a 
multifile volume, you must declare both the input file and output file as unlabeled. In 
this case, the labels are treated as partitions of data. No label checking takes place. 
When using this technique, both files must be defined as record type U, block type K,' 
and both labels and data must be recorded in even parity, coded mode. 
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COBOL CODING FORM 



ETAFE,NT,E,FY,EE) 
LlETAPE,L-NEWLI8,T=10C) 



J08,CP7|0 

STAGEdJf 

LA8EL( 

COSCL. 

L.GO. 

7/S/9 in column onz 

identification CIVISICN. 

PROGRAM-ID, C08RC, 
CATE-COPFILEC. 
ENVIRONMENT CIVISICN. 



CCNF 



IGURATICN SECTION. 



SCURCE-CCMPUTER. 7600. 
CejECT-CCHPLTER. 7600. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT TAFER ASSIGN TO LE1AFE. 
CATA CIVISICN. 
FILE SECTION. 
FC TAPER 

LAeEL RECORD IS STANCARC VALUE CF IC IS LAENA^-E 
CATE-fcRITTEN IS CATNAP 
REEL-NUMEER IS RLNUP 
EDITION-NUMBER IS ECNLM 
RETENTICN-CYCLE IS RETCYC 
CATA RECCRD IS LETAPE. 
01 LETAPE. 

02 TAPE-REC PICTLRE IS X60). 
fcORKING-STORAGE SECTION. 

77 CNTR-2 PICTURE IS °<= VALLE IS ZERC. 
01 DATA-CARD. 

02 LAENAME PICTLRE IS X(15) VALLE IS 
C2 CATNAP PICTLRE IS <E<6) VcLLE IS ZEI 
02 RLNUK PICTURE IS 9C() VALUE IS ZERi 
02 ECNUM PICTLRE IS 9(2) VALUE IS ZERi 
02 RETCYC PICTURE IS <3(3) VALUE IS ZEI 
PROCJECURE DIVISION. 
EEGIN. 

ACCEPT CATA-CARD. 
CPEN INFUT TAPER. 
TAPE-TO-PRINTER. 

READ TAFER AT ENC GC TO SECCN C-CLCSE . 
CISPLAY TAPE-REC. 

ADC 1 TO CNTR-2. IF CNTR-2 LESS THAN 3 
GC TC TAFE-TC-PRINTER. 
SECOND-CLOSE. 

CLOSE TAPER. 
STOP RUN. 

7/*/ 9 in tdlumn ont 

LETAPE] | I OOOGOOOQOlGlulO 

6/7/S/9 In column onz 



Example 11-2. Using LABEL Statement for Label Checking With COBOL Program 
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LABEL DENSITY 

For an output tape, labels and data are always written at the same density. For a 
9-track input tape, labels and data are always read at the same density because the 
9-track tape units allow density selection at load point only. For a 7-track input tape, 
labels and data need not be at the same density. A tape driver attempts to read a 
label at all densities until it performs a successful read. It then reads the data at 
the density specified by the user. 

For SCOPE 3.4, the LABEL statement includes a label density parameter. This para- 
meter is not recognized by SCOPE 2.0. 

LABEL PARITY AND CHARACTER CONVERSION 

All labels are recorded in coded mode (with character conversion), regardless of the 
presence of the CM=YES parameter. CM=YES applies to data only. For 7-track tapes, 
labels are written (or when reading assumed to be written) in External BCD. 

For 9-track tapes, the character set used is determined by whether or not EB is spe- 
cified on the STAGE or REQUEST statement. If you recall the description of 9-track 
character conversion in Section 6, EB used in conjunction with CM=YES caused the data 
to be converted to EBCDIC rather than ASCII. For labels, the parameters work dif- 
ferently. 

To specify that data on a 9-track tape is to be binary mode but that labels are to be 
in EBCDIC rather than ASCII (the default character set), specify CM=NO or omit the 
parameter from the FILE statement and specify EB on the FILE or STAGE statement. 
To specify that data and label are to be in coded mode, include the CM=YES parameter 
on the FILE statement. Similarly, specifying US (or omitting US) will effect conversion 
to or from ASCII. On input, any lower case letter is converted to upper case. Any 
other character not in the 63-character subset is interpreted as a blank. 
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Hopefully, your program will run perfectly the first time it is compiled and executed. 
If your program should happen to terminate prematurely, however, you will want to 
make use of analytical aids available through the operating system. Options include 
the use of EXIT statements to allow a job to resume processing despite the occurrence 
of abort conditions, specifying that certain types of errors or conditions be ignored 
rather than resulting in job termination, generation of core memory dumps for analysis, 
and generation of listings of files for determining possible causes of program termina- 
tion. 

This section deals primarily with the use of SCOPE 2 features. 

In addition to the listing of instructions in your program, which is automatically printed 
in source (compiler or assembler) language, other listings of these instructions in ob- 
ject code can be obtained as a compiler option. Compiler options are used primarily 
by experienced programmers to isolate specific errors in object-coded instructions. 

The TRAP program is another aid available to you. It has two options, TRACK and 
FRAME. The TRACK option provides a printed analysis of program instructions in 
terms of storage references, operand references, and arithmetic register use over a 
user-specified range of instructions. The FRAME option provides printouts of selected 
areas of storage at the time specified instructions are executed. This routine gives 
you a picture of a small portion of SCM or LCM at any given moment. The TRAP 
program and its options (TRACK and FRAME) are not described in this guide but are 
described in the Loader Reference Manual. 

CONTROLLING YOUR JOB WITH EXIT STATEMENTS 

If an abnormal termination (abort) condition occurs during loading or execution of one 
of your job steps, all need not be lost. SCOPE allows you to specify through EXIT 
statements that "ou want control statement processing to resume despite an abort con- 
dition. 

When an abort condition occurs in your job, SCOPE skips control statements until it 
encounters an EXIT statement. Figure 12-1 and Table 12-1 show whether SCOPE aborts 
the job when it encounters the EXIT statement or whether SCOPE resumes control state- 
ment processing (continues the job) with the statement following the EXIT statement. 
Statements following the EXIT statement might dump the SCM image of your job, save 
files, catalog or purge a permanent file, request an entirely different program sequence, 
etc. 

The allowable forms of the EXIT statement are as follows: 

EXIT. Normal abort processing 

EXIT(S) Selective processing 

EXIT(C) Conditional processing 

EXIT(U) Unconditional processing 

SCOPE 3.4 does not recognize EXIT(C) and EXIT(U) statements. 
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BEGIN JOB 
PROCESSING 




SCOPE READS 
STATEMENT 



NO 



eoi: 



YES 



TERMINATE 
JOB 



ABORT \YES_ 
CONDITION? /^ 



NO 



STATEMENTS \ NO 
BEING SKIPPED? 



EXIT\ \NO_ 
OR EXIT(S)?y 



TERMINATE 
JOB 



EXIT., EXIT(C) \YES_ 
OR EXIT(S)? 



EXIT(S)? 



NO 



EXIT(U)? 



YES 



YES 



TURN OFF 
SKIPPING 



NO 



SKIP THE 
STATEMENT 



TURN ON 
SKIPPING 



PROCESS 
STATEMENT 



NO 



EXIT(C)? y*°- 



YES 



SELECTIVE 

ABORT 
CONDITIONS?; 



NO 



YES 



TURN OFF 
SKIPPING 



NO 



SELECTIVE 

ABORT 
CONDITION? 



EXIT. 



TERMINATE 
JOB 



YES 



Figure 12-1. Flow Chart of EXIT Processing 
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TABLE 12-1. EXIT STATEMENT PROCESSING 





EXIT. 


EXIT(S) 


EXIT(U) 


EXIT(C) 


Normal job termination; 
no errors encountered 


End job 


End job 


Continue 
job 


Continue 
job 


Abort condition resulting from: 

Program execution error (not over- 
ridden through MODE statement) 

Operator has issued DROP com- 
mand at station 

Time, mass storage, or LCM 
limit exceeded 

Irrecoverable mass storage or 
tape parity error 

Control statement syntax error 

System aborts, for example, 
record manager errors 


Continue 
job 


Continue 
job 


Continue 
job 


End job 


Selective abort condition resulting from: 
Compilation errors 

Number of on-line tapes scheduled 
has been exceeded 

SCM/LCM parity errors 


Skip until 
end-of- 
job or 
EXIT(S) 


Continue 
job 


Skip until 
end-of- 
job or 
EXIT(S) 


Skip until 
end-of- 
job or 
EXIT(S) 


Irrecoverable abort condition resulting 
from operator issuing RERUN or KILL 
command 


End job 


End job 


End job 


End job 
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In Example 12-1, the EXIT statement allows job processing to continue following abnormal 
job termination. In this example, the DMPFILE statement requests a printout of the con- 
tents of file TAPE1. 




Example 12-1. Selective Exit Processing 



Example 12-2 illustrates a job that contains a combination of EXIT statements. The first 
thing the user wishes to do is to purge file A if it is still a cycle of a permanent file. 
If the file has already been purged, the attempt to attach it will cause an abort condition. 
The EXIT(U) allows processing to continue with the STAGE(OLDPL) statement. Following 
execution of the object program on LGO, a second unconditional EXIT statement assures 
that the contents of file XXX are printed regardless of whether or not the object program 
abnormally terminates. Then, if an abort condition does occur, SCOPE takes an SCM 
dump of the first lOOOg words. Finally, if a selective condition occurs, the EXIT(S) 
assures that the LGO file is saved as a permanent file. 
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CONTROL DATA 



J08,CP7ii. 
ATTACH<A,PERMFILE,IC=XX) 

PURGE(A) 

EXIT(U) 

STAGE(CLCPL) 

SKIFG(CLCFL,26>«j3) 

CATALOG <CLCFL,CLD^WC = >X) 

UPDATE (F,fc) 

CC*FASS(I=CCNFILE) 

LGO. 

EXIT(U). 

CISPCSE (XXX, FR) 

EXIT. 

CMP(0,10G0) 

EXIT(S) 

CATALCG(LGC,XYZ,ID=XX) 

7/8/9 in column onz 

(LPCATE INFLT) 
6/7/B/9 in column one. 




I f permanent file A| 
is not present, an 
abort condition 



MIPS 



I 



OLDPL is to be 
5 i so6u rsoaruiSss 
of abort. Primary 
sequence begins. 



If abort occurs, 
SCOPE takes core 
dump 



Example 12-2. Combination of Exit Paths 



SETTING ERROR CONDITIONS 

SCOPE 2 allows you to override some of the error conditions that can occur during 
execution of your object program. The conditions over which you have some control are 
the following: 



SCM direct range error 



This condition results from an attempt to 
reference an operand outside your SCM 



Overflow error 
Indefinite operand error 
Underflow error 



This condition occurs if the floating point 

functional unit generated an infinite operand. 

This condition occurs if the floating point 

unit generated an indefinite operand. 

This condition occurs if the floating point 

unit generated a smaller operand than it is 
possible to represent in floating point no- 
tation. 



The underflow error condition is not detected on a 6000 Series or CDC CYBER 70 /Model 
72, 73, or 74 Computer System. For compatibility with SCOPE 3.4, the installation 
option for program error mode is usually set so that your program is abnormally ter- 
minated if any of the conditions other than underflow occurs. This is the same as 
MODE (7). In addition, underflow occurs often enough so that generally it should not 
be selected as an abort condition. 
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Error conditions over which you have no control and which always result in job termi- 
nation are the following: 



LCM direct range error 



SCM or LCM block range error 



Program range error 



This condition results from an attempt to 
reference an operand outside the LCM 
field length. 

These conditions result from a block copy 
that references an address outside the res- 
pective field length. 

This condition results from an attempt to 
execute a word containing zero. 



NOTE 

For any range error - including the SCM direct 
range error - the program takes the error exit. 
In the case of the SCM direct range error, how- 
ever, error processing by SCOPE allows the 
error to be ignored through the use of the MODE 
statement. 

If you want to continue program execution despite the occurrence of one of the error 
conditions (except where noted), or if you want to terminate execution if an underflow 
error occurs, you can place a MODE statement in the control statement section of your 
job deck (see Table 12-2 for MODE parameters). The MODE statement affects all sub- 
sequent job steps until another MODE statement is encountered or until job end. 



TABLE 12-2. MODE STATEMENT PARAMETERS 



MODE Parameter 


Error Condition Causing Job Termination 


Underflow 


Indefinite 


Overflow 


SCM Direct Range 
(Bit 20) 




(Bit 23) 


(Bit 22) 


(Bit 2l) 













1 








X 


2 






X 




3 






X 


X 


4 




X 






5 




X 




X 


6 




X 


X 




7 




X 


X 


X 


10 


X 








11 


X 






X 


12 


X 




X 




13 


X 




X 


X 


14 


X 


X 






15 


X 


X 




X 


16 


X 


X 


X 




17 


X 


X 


X 


X 
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The format of the MODE statement is as follows: 



r 



MODE(n) 



Example 12-3 illustrates the use of a MODE(l) statement to designate that job termination 
is to occur only if an SCM direct range error occurs. MODE statements are used pri- 
marily as an aid while debugging your program. 

NOTE 

The MODE(O) statement is usually used as a last 
resort when debugging a program that does not 
run to completion for no apparent reason. The 
MODE(O) statement forces the job to run to com- 
pletion. 



CONTROL DATA 



FORTRAN CODING FORM 



OBSHK 
STAGE ( 



,CP7 

ITAPE 



HlCOEdiP 
FTN. 

l|go. 

7/5/9 in column one. 



0. 
1,FCST) 




NPLT.CUIPL 



7. TAPED 



Example 12-3. Using the MODE Statement 
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SETTING LOADER ERROR OPTIONS 

SCOPE 2 allows you to override some of the error conditions that can occur during 
loading of your object program. When the loader detects an error during the load 
sequence, it takes the following action depending on the severity of the error. 

Terminal errors Immediately terminate loading and terminate the job 

Fatal errors Complete the load sequence and then terminate the job 

without executing the loaded program 

Nonfatal errors Continue normal processing of the job but issue an 

informative message 

The LDSET ERR option lets you specify job termination for terminal errors only or 
for any error, despite its severity. The SCOPE 2 loader also detects normal conditions 
that result in informative messages but do not cause a job to terminate. Such conditions 
are not considered error conditions. 

Placing the following control statement in the load sequence causes the loader to issue 
an error message and continue job processing for either fatal or nonfatal errors. A 
terminal error causes immediate job termination. 



LDSET(ERR=NONE) 



The following option causes the loader to terminate the job even for errors that are 
normally nonfatal. 



( LDSET(ERR=ALL) 
The following ERR option is equivalent to the normal default mode. 



LDSET(ERR=FATAL) 



lu E \ a Tu Ple i 12 ; 4 ' , the LDSET < ERR = A LL) causes execution of LGO to be prevented even 
though the loader detected an error that was normally nonfatal, for example, if the 
loader failed to satisfy all externals. 
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CONTROL DATA 



FORTRAN CODING FORM 



TAGE 
TN. 
LDSET 

l|go. 

7/B/9 in column one. 



JOBSAN 



,CP7 
TAPE 



ERR = 



0. 
1,FCST) 



ALL) 





00 



'RCG 
RIN 

CRN 

:EAD 

CRM 
F 



CNE (I 



RAM 
T 5 
AT (1H) 

100, EASE, 
AT(2F10.2 
I.GT.O) GC 



NFUT, CUTFL 




HEIGHT, I 
) 
TC 120 



T,TAFE1) 



Example 12-4. Requesting No Program Execution For Any Loader Error 

OBTAINING PROGRAM DUMPS 

If an error prematurely terminates your job, SCOPE 2 automatically generates a Standard 
Dump of SCM and writes it on the OUTPUT file. This dump (Figure 12-2) includes: 

• Contents of the exchange package used for communication between your job 
and SCOPE, including the current contents of all arithmetic registers in the 
central processor unit 

• Assuming that the arithmetic registers contain addresses, the dump includes 
a listing of the contents of the addresses referenced in the registers. 



Contents of the first 210 g locations in the SCM field (RAS+0 to RAS+2 07). 
first 100 Q locations are the job communications area. 



The 



• Contents of the 77 fl locations immediately preceding the location at which execu- 
tion abnormally terminated and the 77„ locations immediately subsequent to the 
termination point, as well as the contents of the termination address 

Figure 12-2 illustrates a sample standard dump. 
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DUMP OF 

EXCHANGE 
PACKAGE 



DUMP OF 
JOB COM- 
MUNICATION 
AREA 



SCM 

CORE 

DUMP 



USE* EXCHANGE PACKAGE 



EEA 90 010* 



XI 0000 9000 0000 0000 0000 

X2 0000 0003 0000 0000 09*3 

X3 1116 2025 2*30 0000 00 00 

X* 0800 0003 0000 DOOO 00 06 

X5 0000 000] *398 0000 0003 



SC 00000 00 
SC 0000 0* 
SC 0000010 



(A0)» 1725 2*20 252* 0303 DODO SCCP I* Q*QQ *010 1361 000* 6000 



3000 0000 0010 0000 

5110 0001 5001 0000 

1116 2075 21.00 0000 

3000 0000 0000 0000 

3000 0000 0200 0300 

3000 0000 0030 0000 



0001 



00 00 00 00 



0000 0000 0000 0003 0000 

1520 SC1B2M 0000 0000 0000 0000 0000 

1000 SCIB3)> Q000 0000 0000 0003 0000 

005 SC(B*)£ 0000 0000 0000 2303 0155 

00* SC(B5)> 0000 0000 0000 0003 0000 

.157 SC(S6)> 0000 0300 0000 0000 0000 

1005 SC<B7U 1116 2002 5*55 5501 1563 



11* 3000 0000 0O0C 0000 3000 LC(X1) 

?l> 0000 0000 0000 000* 5715 LCCX2) 

31> 3000 0000 0000 0000 0000 LC<X3) 

*»» 9317 1520 2300 0300 ?277 LC<X*I 

5»« 2*01 2005 3*00 0000 0100 t.C(X5) 

61= 9*00 *01l 5761 000* 6000 LC(K6I 

7)> 3000 0000 0030 00 SO CO0O LC1X7J 



0:00 00 00 0001000 009 00 
0000 00 00 00 OJOO0 000 00 
OJ00 099000030000009Q 



111620252*0800003100 2*0120053* 

031715702 3QO0O0O02 
00 000000*57 



SC 000 00 30 
SC 00Q0Q3* 

sc a os oo*o 



30901000 00 0300 0000 
300CQO 00 00030000 OQO 
010000000 O001O00OO00 
OO 00 00 



0000000 00 000 



030001900 00030000000 i 
1*071700009010000000 
1*071757555*555555*5 
03000000000010000000 



00000000300000900 



00 3030000 00 000003000 
000 00 00000001300 
000030000 09 00 OQ03900 
00 3030000010000*57*6 
03 9030009 90 00 00 0300 
00 90303 00 03 0000 0300 
0155555555555 5555533 
0090300 0000000003002 
20 30300 00 0? DO 0001300 
00 90300 03 000000 03 00 
00 9030090 OOOO 0003000 
00030000fl;«O 0003990 



06 7*16221 

00 000000 00 90 00 0*57 76 

20 2 3 3*03 2* 1* 5300 03 1 



0009C80 0003900 



00 000009 99 00 000*57 15 
00 000000 00 00 00 0000 01 
00 000000 00 90 00 0000 00 
00 000000 00 30 00 0093 00 
00 000030 00 00 000003 00 
20 Z 33*0 3 2* 1* 53 035? 62 
00 000000 03 90 00 OOOO 00 

oo oeoooo oo oo oooooo oo 



SC 000 072* 
SC 0000733 
SC 000073* 
SC 00007*0 



T6*3?535* 02 15727! 
0*000370? *61QG0M 
5 321055 32 57672221 
911603205151*0001 
235961915963*196 
3150 307*30**30 91 



013000010*61110*1 



7157 7 7 35500*0 00 32016 

90000000000900000900 < 

61*3 77777305200 37110 616077763 205*00 32107 

2222 70*60009750 36727 20 603157137070112661 
033290073166357*6300 
*3*090* 30 0307*319677 
20*256650 07130063007 
725*777775*3052*63 00 
0130900*010900000762 
55 5555555515160*5555 
0076661000*6900 



7311311505 
1 675*505520017*366300 

' 6621113F7761307777** 



031' 



910622617000 



000*6000 



SC OflOlfiO* 1262320*365**30*600 
*C 0001013 9130000*01903000137 
03710910170 35109167 
7120091*2*0*3090101 
617838007*55726*600 
2257*12 77 5*61005*32 
617003050*0*10001027 



SC 00010 20 
SC 001102* 
SC 00010 31 



SC 00106* 

SC 000 10 70 QlOOLaOOOOOOlBOOOOOO 

SC 000107* *30773076061>080Q801 

SC 0081109 

SC 80011B* 

SC 0001113 



7123 001*260*eOD01Q13 
61 *J 9000175*376*6000 
0707 0010275*776*6000 
615000080661*0000007 
0710 8018*35*376*6000 
611J 0000015160000502 
70 2* 61 592067331 5*661 
20 20 615020676615*661 
676615*6610560901061 
55161616161616161616 
11170522725555001377 
1356 751*0001*30117*5 
15*60367*55170001063 



09136 061300*6 000 



61500030915120001*0* 
502310009 2127 2*5*779 
01 3030000 030B0O039O0 
8*0090181361000*6000 
0*10*0102 761000*6390 
615030901*971*091035 
617000007*6711*137 7 7 
67 775225726711612775 
0510301036610 00*6000 
0303301057636 30*3066 
05309018515*22167662 
056000105561008*6000 
0*000010**61000*6008 
5572150 317220*551501 
0*00*0107 761000*600 
23557217363775717757 
116065159 001*3336765 
227165*775525100309* 
51600010707120001063 



0100032*0*6190 0*60 00 
517080*1515110000)32 
53 1205139G 00 069376 31 
367716352561000*6300 
0**00007*266 37 7*60 00 
00 000000 0361809*63 00 
0*900007 3*61000*63 00 
03150007556*1*0*60 00 
61500000 010100001116 
SO 000090 0300 000009 00 
0130900*0100 800007 65 
51 6B00059361 000*63 00 
0138808*0190 009005 83 
51308013 7351*80013 01 
0139999*0100 90001*10 
0*00*01013 61000*63 00 
7120081*210*00001313 
6160000001*3 700*60 90 
20 28636*73 67 7755*2 36 
061*00192705100010 35 
5*2360*109010*3677 75 
5*7760*0 0001022*63 90 
61 700000 1266 329*60 90 
663290662301 051*60 00 
71609090 5562 63 7775 51 
5506111*0555 30 30 30 30 
168107052255 05222217 
7*10053519*3 052116 05 
5150001*3111*751266* 
5*77552519 00 012*3*36 
*331120333ll 35320352 
71100001*76100 0*60 9 



CM 6 BOS G7 



K&E6M 



Z03- 



5Hi 



D 5C 
, 9FAFR 

a c 

ITBLft/S BJ 



C HOC( UPC* HQ 

P LTD HK P LW 

5 J> 

R.6H - EBVGG HHi 

EDO HR / F 

R.3U' GH HB= 
D 5H5 H A i 



HE2H0EQME 
t LYI-IV 

UH AT 13 
TJC9I22C) 



Figure 12-2. Standard Dump 

REQUESTING A STANDARD DUMP 

If you want a standard dump even if no error has occurred, you can request it through 
the DMP statement. 







DMP. 



As shown in Example 12-5, the request is generally written after the request that exe- 
cutes your program. 
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CONTROL DATA 



FORTRAN CODING FORM 



'jpBSAjM 
MAP(C!N 
R|EGUEiS|T{T/5|PEl,HT) 

TN. 
GC. 

opp. 

7/S/9 In cjohimn owl 




Example 12-5. Request for Standard Dump 

REQUESTING SCM DUMPS 

Depending on the nature of your job, you may want a dump to indicate the contents of 
locations other than those norm-ally shown on a standard dump. You can specify more 
or fewer locations to be printed. For example, you can request a dump that will show 
the contents of all words from the beginning of your SCM field (RAS) to any specific 
address beyond RAS. To dump from RAS to a specified address, use the statement 



DMP(lwa) 



where lwa is the octal address of the last location you want listed. You can also specify 
the beginning relative address as well as the ending relative address for the dump. To 
do so, use the following form of the DMP statement: 



j DMP(fwa,lwa) 
Thus, if you wished a dump of locations 200 g through 500g, you would use 



( / DMP(200, 500) 



You can place the DMP statement after an EXIT statement if you wish the dump taken 
following abnormal job termination. Example 12-6 illustrates a job in which an SCM 
dump is generated during EXIT processing. 
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If you should happen to specify fwa the same as lwa, the system generates a dump as if 
you had simply specified DMP. 

Unlike 6000 SCOPE, 7000 SCOPE 2 does not provide a means of obtaining a dump of 
SCM using absolute rather than relative addresses. 



CONTROL DATA 



FORTRAN CODING FORM 



BSAIH 
FtN. 
STAGE|< 
LG0. 
EXIT. 
OMP(l|0 
CCMME 



,CP70. 
T/SPE|1,F0ST) 




Example 12-6. SCM Dump Taken Within An Exit Path 

REQUESTING LCM DUMPS 

The standard dump does not include a listing of any of the contents of the user LCM 
tield. SCOPE 2 provides two control statements, DMPL and DMPECS, which you can 
use to obtain listings of locations in LCM. Except for statement name, the control 
statements are identical. 

To request a dump that will show the contents of all words from the beginning of your 
LCM field (RAL) to any specific address beyond RAL, use one of the following statements, 



(• 



DMPL(lwa) 



or 



DMPECS(lwa] 



where lwa is the octal address of the last LCM location you want listed. 

You can also specify the beginning relative address as well as the ending relative address 
tor the dump. To do so, use the following form of the DMPL or DMPECS statement: 



r* 



DMPL(fwa,lwa) 



or 



DMPECS(fwa,lwa) 
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Specifyi ng LCM Dump Format 

By default, the LCM dump is printed in a format similar to that used for the SCM dump 
shown in Figure 12-2. That is, SCOPE lists the LCM address followed by four groups 
of 20 octal digits indicating the contents of the address and the next three locations. 
To the right of the octal listing is a display code interpretation of each two octal digits 
(00 is interpreted as blank). You can request that words be listed only two at a time 
rather than four at a time. If you are listing octal instructions, you may prefer that 
the contents of the two words be listed in 15-bit groups (4 to a word) rather than having 
all 20 digits in a group. However, if you are listing data, you may feel that the listing 
is easier to read if the word contents are broken into five 12-bit bytes. 

To obtain any of these options, specify the format parameter as the third parameter on 
the DMPL or DMPECS statement: 



T»MPL(fwa,lwa,f) 



Specify f as follows: 
null, or 1 



or 



c 



DMPECS(fwa,lwa, f) 



List 4 words per line in 4 groups of 20 octal digits 
accompanied by character interpretation 

List 2 words per line in 4 5 -digit groups accompanied by 
character interpretation 

List 2 words per line in 5 4-digit groups acconpanied by 
character interpretation 

List 2 words per line in 2 groups of 20 octal digits accom- 
panied by character interpretation 



Specifying LCM Dump File 

For LCM dumps, you also can specify a file other than OUTPUT to receive the dump. 
Remember, if you specify a file other than OUTPUT you are responsible for saving the 
«i~ ~~ v^i+inn- i+ +^> o winter thrrmcrh thp DTSPOSF statement. Snecifv a file as the 

ilic KJJ- x uumig ii. <-\_< •-* k-"- "■■■■"-■■■ xi.i-w~.j3 — — — - - - i „ 

fourth parameter on the DMPL or DMPECS statement: 



(DMPLtfwa.lwa.f.lfn) or fDMPECS(fwa, lwa, f.lfn) 

The comma terminating the f field must be present even when f is null. 



OBTAINING LOAD MAPS 

Each time the loader is called for an object module (that is, relocatable load) you have 
the option of requesting a listing that describes where each module is loaded and what 
entry points and external symbols were used for loading. This listing is called a load 
map. You can control the contents of the map and can designate the file to receive it. 
A load map optionally contains the following items (Item 1 through 15 are illustrated in 
Figure 12-3. Items 16 through 18 are illustrated in Figure 12-4). 
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1. Identifies the output as a load map 

2. Identifies which version of the LOADER is being used 

3. Page number 

4. Present only for overlay generation; identifies the overlay for which this is 
a map 

5. Present only for overlay generation; indicates where overlay will be loaded 
when called (octal value) 

6. Symbolic name for point of entry 

7. Absolute value for point of entry in octal 

8. Program or overlay length (SCM) in octal 

9. Program or overlay length (LCM) in octal 

10. A block name within the program or overlay, where // means blank common 

11. Absolute beginning address of block, where an L following address indicates 
an LCM address 

12. Length of the block 

13. A list of entry points occurring in the program or overlay 

14. A list of subroutines that references these entry points 

15. The absolute address within the subroutine where the entry point is referenced 

16. A list of unsatisfied externals 

17. A list of subroutines in which the unsatisfied externals occur 

18. The absolute address within the subroutines where the unresolved external was 
referenced 

A system parameter determines whether or not you receive a map with each load. This 
parameter can be set to specify no map, a partial map, or a full map. You may want 
to check with a systems analyst to learn what the default is for your site. For this dis- 
cussion, let us assume that the system default specifies no map. 

You can change this default for the duration of your job by using a MAP control statement, 
or you can change it for a load sequence through the use of the LDSET MAP option. Op- 
tions also apply for overlay and segment generation. 

MAP Statement 



To change the map default for the job, place a MAP statement in your control statement 
section before the loads that are to be affected. Although it is a SCOPE control statement 
and not a loader control statement, MAP can occur within a load sequence for compatibi- 
lity with previous systems (see Table 12-3 for MAP parameters). 
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o 

o 



© 

LOAD MAP 

OVERLAY (03, 2) 



© 

PROGRAM WILL BE ENTERED AT PASS1H 



© 

LOAD AT 



BLOCK 

(00,00) 
(03,00) 
(03,02) 
C0B0L32 
PACKLCM 
PASS1H 
// 



ADDRESS 

100 
10016 
12347 
12350 
12350 
12645 




LOADER 
( 12347) 
( 12645) 



(12) 

LENGTH 

1 
1 
1 

275 
3053 




© 

VER. 1.0 



© 

PAGE 1 



SCM LENGTH 



© 

15720 



LCM LENGTH 



© 





@ ENTRY 

(|3) PACKLCM 

PACKLCM 
@GETBUFH 
RSTRBFH 
@ PASS1H 
(g)PASSlH 



ADDRESS 



_ 12517 

©12565 

12574 

© 12645 



REFERENCES 



PASS1H 
PASS1H 
PASS1H 



12763 
15607 
15610 



Figure 12-3. Loader Map- Part 1 



LOAD MAP 

OVERLAY (04, 0) 
PROGRAM WILL BE ENTERED AT CREF 



BLOCK 



ADDRESS 



LOADER 
LOAD AT ( 10016) 

( 10230) 
LENGTH 



1.0 



PAGE 



SCM LENGTH 



LCM LENGTH 



(00,00) 
(04,00) 
COBOL40 
CREF 
// 


100 

10016 

10017 

10017 




1 
1 

414 





ENTRY 


ADDRESS 


REFERENCES 




CREF 
CREF 


10230 






UNSATISFIED 


EXTERNALS 






© 

EXTERNAL 

SMC0N7 

— 




© 

REFERENCES 

CREF 


© 

10232 



Oi 
O 
CO 
-J 



Figure 12-4. Loader Map-Part 2 



o 
o 



LDSET Option 

To override the system default when there is no MAP statement or to override the MAP 
statement on a temporary basis, use an LDSET loader control statement with the MAP 
option specified (see Table 12-3 for options). 



TABLE 12-3. MAP OPTIONS 



MAP Contents 




MAP Statement 
Parameter 


LDSET Option 


No map 




OFF 


MAP=0 or MAP=0 


Partial map (items 


1-9) 





MAP=S 


Partial map (items 


13-15 






omitted) 




PART 


MAP=B 


Partial map (items 


14, 






15 omitted) 







MAP=E 


Full map 




ON 


MAP=X 



In addition to allowing you greater control of map contents, the LDSET option also lets 
you determine the file to receive the map. You can specify a file by specifying the para- 
meter as MAP=p/lfn where lfn is the name of the file to receive the map and p is the 
map option, or can change the file without changing the current map default by simply 
specifying MAP=/lfn. The default lfn is OUTPUT. 

Example 12-7 illustrates user control of load maps. 

OBTAINING FILE DUMPS 

As an analytical aid, SCOPE 2 provides a utility routine that lists portions of a file. 
This routine is called with the DMPFILE statement and includes a number of options -. 

The dump format (Figure 12-5) resembles the standard dump format in that it lists the 
contents of the iiie in groups oi iour worus accompanieu uy a uispxay coue representation 
of the contents. The number of words listed in each record and the number of records, 
sections, and partitions listed are user options. A file word address precedes each 
listing of the contents of a record. Because DMPFILE uses the record manager, any 
parity errors are noted but do not cause DMPFILE termination. The definition of a 
logical record is determined by record type. If you want to list all of the contents of 
the file, including W control words, I blocking control words, and recovery control words, 
or want to list the 48-bit appendages for S or Z record types, you can redefine the file 
as record type U, unblocked, before using DMPFILE. A blocked file must be closed 
before it can be redefined with a different file type. If the file is post-staged or is an 
on-line tape, you will not be able to redefine it as unblocked. 

REQUESTING A DUMP OF ENTIRE FILE 

Use the following control statement to list an entire file on the OUTPUT file: 



DMPFILE(lfn) 
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FILE1* 



LDSET(KAP=E> 
FILE2. 



FILE3." - 



L0SET<MAP = S/6LUE>-«- 

MAP(PART), 

FILE^i. 



Assume map default 
Is off. No map 
!s oenerated. 



Map written on OUT- | 
PUT with statistics, 
b locks, and entry 
points 



Return to default; 
no map Is generated 



Set map for 
load sequence 




Change default. Fo 
this sequence, LDSE 
takes precedence 






Map contains statis- 
tics and is written 
of file BLUE. 



Mao set 


by 


defau 


It; 


written 


on 


fi le 




GREEN 









Example 12-7. User Control of Load Map 
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CKFFILE (E,»f = ?) 



FILE CM* EEGIkMKG «T FILE fcCRC 1 



tocccc 

CO00C* 
COG01O 

ooooi* 

COOGZO 

tooc<* 

C00020 

G0003* 
c oaoiio 

COGGt* 
C00050 
O0005"i 
000060 
COGCE* 
C0C07C 
C0007* 
000100 
00010* 
000110 

loom 

S60120 
C0012* 



1333 



52* 555555 

5*1 556555 



65565565555555** 
6655555555553»3€ 
5555555555553*1.2 
555655665555353* 



5555 



!5*C 

55555555555535'!'. 
5555566565553636 
55555556655536*2 
5555555555553731. 
5555555555553»".C 
66655655555537** 
555555556555*626 
555655566555*t*2 
555555555556*131. 
555655555555*1*0 
55565555555541** 
655555555555*236 
555555556555*2*2 
5555555555551.53'. 




I3E 33333333333337333333 

..5.5 555555555555 5*1 5555 55 55 5 5 55 55 55 551.2 655555555555555555*3 

...55.5.5.5.555.3^2 55555555 5 5 5555 5521.3'. 555555555555555531.35 

55555555555555553*37 55555555.5 .5 c; 55 mo 55565555555655553**1 

inciiooiicdi!!^ 55655555655556562*** 55555 556555555553533 

c'5555C555c55555E3 53 5 55555556 55 55 56 5 5 3536 5565555565555555 3537 

cc^oocccijccm.^i 555555556555555525*2 555555555555555535*3 

5^55 55 55; 5. 5 55 53 f3 3 555 5 55 65 5 5 55 55 65 26 3* 55555 5556 55 55555 3635 

eccccc'cc5ccc5ccc3 E 37 55 5 5 6 5 6 5 6 5 5 5 5 5 5 5 2 6 * li 555555555 556555536*1 

cccccc^ccccccc ie*' 55 '5 '566 56 65 65 6 5:6i.S 5 5555 55555555555 3733 

5^55555555555553736 55555555 65 5556552736 65555 555555555553737 

cc. 5. .5. 5.5.555537^1 5566 5555 55 55 55 552 7<i2 5555555555555555371.3 

cccccc5C5ccc55cci, C 33 55555555566656651.031. 65555555555555 5511035 

iciietEtci|iccc;i[i) 65 65 6555 65 55 55 55 ' 0*0 5 5556 555555555551.01.1 

^iii,m^ii'c^ii,ii,2 5565555655555555*0** 5 55555555S555555i<133 

ccec>ceccceccccc M 3C 5 5 e 5 55 5 5 . 5 55 55 . 5 1, J 3 t 555555555555555.4137 

« "5^5555555'* 1*1 5 5 55555565555565*1*2 5 5.55555555555555*1*3 

^.ctccc;r>i;ccc ia i 5 5 555555556556551.23'. 65555555555555 551.235 

ccc^5c5c5;5555554 £ 3 7 5565 5565 6555 55 65*2*0 5555555555555555*2*1 

555555555. 5555. 54J43 55 56 55 5 5 65 65 65 55*21.1. 65555 6555556565 5*33, ' 

55555.55555555555*235 5555 5555 55 55 55 65*336 555556^ 

^5555536*235 



00CGQ00002 



665555S5636*ZJt 
=55555555536*2*2 
555655555636*33'. 
E55555555536*3*C 
555555656536*3** 
555555555536**36 
565555555536***2 



..-i--.,. ~5.553e1.j37 55555555656555Jt'.c*U 5555555555565536*2*1 
5^5.^5. ..5.. .3(^1,3 55 555555 65 55 55 26*2** 5 555555555555536*333 
»cccc5C55sc553 C ti 3 c 55556556 55 65 55 261336 5 565555555555536*337 
ccccc<5cc.5Ccc3cj,3i,i 5565556666656626*3*2 55555 55555555536*3*3 
C5555^55555;553en,33 5555 5555 55 55 55 26**3* 55555 55555555536**35 
5565555555565536**37 5555 5556 5555 55 26***0 5565555555555536***1 
.....^^...S^emS 55555555 6555 55 2 6**** 55555555555555555556 




365 
369 
373 
377 
361 
36S 
385 
393 
397 



282 

ate 

26C 
25* 



ENC CF RECCRC IE / 



LEKC1H = 62C kCRO? (KC CC LI-L6EC EI1S, CR *C0CC CKS4CTESS / CF SECTICK 1C OF PARTITICK 1C 



FHE C»t» EEGIM.UG M FILE *CRC 621 



G00GC0 
10000* 
C00010 
00001* 
000020 

00002* 

C0O020 

00002* 

0000*0 
0000** 

00005* 
000060 
00006* 
000070 
00007* 



10570 
00067* 
CGC6C0 
C006C* 
C00610 
00061* 



2333 

5555 
655 



3333 
5555 



6 5 5 6 5 
55556 
5556 



cc.ccccccjit cK.noccciitcxci; 56656556!66666656536 33332333333337333333 

333323333336 56555 55 5565555556 5*1 55555555 65 5555 5555*2 555555555555555555*3 

55.«...5«,,t ....... .5. ..5. 5. 3*33 55555555.555555531.31, 55555555555555553*35 

5555^5553, 3i ^5555555555555553^37 56555555 6565 55552**0 55555 5555 55555653**1 

5..5.5553» (l£ 55.555555555555. 3t(l 3 55E55656556555552*** 55555555555555553533 

55;5^555353* 55555556566555653 635 55 555555 55 55 55 652536 55555555555555553537 

55^.5. 53. „£ 5555555.555.555525*1 5655 55 56 55 55 66 6525*2 6 55555555556555535*3 

5555555535^4 5655555655 5 55 5552 63 2 55555555 65 55 56 55 263* 55555555555555553635 

55c.««i53E3« 55555655555555552637 55555555 55 55 55 55 26*0 6 5555 5565 55 5555536*1 

c»...ccut2 ........$...5.5.3(43 55.55555 555555 6526** 55555655555556553733 

««;«rj,n 55555555555655552735 55555555 65 56 55 552 736 55555555555555553737 

5 55 55 55 6 55 6 6 55552 7*1 5555 6555 65 55 55 55 2 7*2 

5. .55.5.5. 555 555 I £3 2 55555555655555 65*03* 

56 555 55 655555 555 *C3 7 5565555565 5555 55*0*0 



=5555555537*1 
=556555553?** 
=55556655*(36 



=5565656S*t*2 556555556555555 



555555555555555537*3 
555555556555555*036 
555655555555555*0*1 

5555555555_ c , 



r?»55i6*236 5555555556555636*23? 5565555566 65 55 26*2*0 5556655555555536*2*1 

. 5 n«'ie*2*J "«««5«"""t*2*3 5555555565655526*2** 5555655565555536*333 

.....5.^5555^3^33* 5556565555565536*235 55 65 5 555 55 555526*336 55555 55555555536*33 7 

;;i;iU;clll*c*t*, k (, ........... ...3c 2*1 55 55 5555 «««5« 2**3*2 5555555555655536*3*3 

ccccc5c.'ssc5553E*!** 5555565555565536**32 55 555555 56 55 55 36**3* 5555555555555536**35 

;hc.5^55^^"4,3« 6<5<665656656526**3? 55 555565 65 65 56 26***0 5556655555555536***1 

;5« 5 5«SS5HSn***J 6565565666655636***2 555555 66 65 56 55 26**** 55555555555655555556 



369 


... ™ 


373 


37* 


377 


278 


381 


202 


385 


286 


389 


250 


353 


26* 


397 


351 



ENC CF RECCfC 2C / LESCTH = 62C hCBCS l« CC LM.SEC EI1S, CR *CCCC CHJRICTEKS / CF SECTICt. 1C OF P*R1ITICk 
>K = 2C - S«IFF1»G "EM CF SEC1ICK 



5KIFFII.C 51CFS II FUE kCFC *23C1 / E>C CF IkFCRHUO 



FILE kCBC 4CCRESS M EK CF FGCCE66UG 16 *23C1 

RECCRC5 RE»C **C / SECUChS RE»t OC / FKIIIKtS RE»C U 



3ucoocc*cac 



371 


37 2 


275 


376 


275 


380 


203 


38* 


387 


388 


291 


392 


295 


396 


296 


* 


3000000*000 


7 


1 


11 


12 


15 


It 


15 


20 


23 


2* 


27 


26 


31 


32 


35 


36 


35 


*>* 


*3 


** 


*7 


*r« 


51 


52 


55 


56 




376 

38 C 



Figure 12-5. Sample of DMPFILE Output 
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SPECIFYING A LIST FILE 

If you want your DMPFILE output placed on a file other than OUTPUT, specify a list 

file as L=lfn ,. 
out 

l / DMPFTLE(lfn. ,L=lfn ~) 
I in out 

Remember that if you specify a list file other than OUTPUT, you are responsible for 
saving the file contents. 

SPECIFYING DUMP LIMITS 

When listing a file with very long records, you may want to sample only the beginning 
of each record. Similarly, if your file is very large, you may want to list only so 
many sections of each partition or so many partitions on the entire file. Several X 
parameters permit you to specify dump limits. These parameters and the L -parameter 
can be in any order after the comma for the input file field. 

The allowable parameters are as follows: 



XW=n 

XR=n 

XS=n 
XP=n 



n is a decimal count of the number of words in each record to be 
dumped. If n is 0, DMPFILE lists the size and number but not 

the contents of the records in the file. 

n is a decimal count of the number of records in each section to 
be dumped. 

n is a decimal count of the number of sections in each partition to 
be dumped. 

n is a decimal count of the number of partitions in the file to be 
dumped. 



In Example 12-8, the user requests a dump of file TAPE6 following abnormal job termi- 
nation. The statement requests the first 14 words of each of the records on the file. 
The listing is written on OUTPUT. 



CONTROL DATA 



FORTRAN CODING FORM 



J0B,C|P 

FTN. 

STAGE 

LGO. 

EXIT, 

REWINb 

OMPFIL 



70 



(TAPE!, POST) 



(TAPE6) 

E (TflPE6,Xfc = l*4) 




7/1/9 in column one. 

CJFpRTf^AN SOURCE 

6f1/t/9 in column one. 






By default, RT=W, 
BT=|, MRL=5I20 
characters 



Example 12-8. Requesting a File Dump 
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OBTAINING DAYFILE SUMMARIES 

To analyze the performance of specific job steps, you can obtain intermediate accounting 
information at a specific point in your job. Place a SUMMARY statement in your job 
deck after the step you want analyzed. When SCOPE encounters the statement, it gives 
an accounting for the job up to that point. SUMMARY has no parameters. 

Example 12-9 illustrates a job in which the user wants information about the compilation 
and the assembly. By comparing these two intermediate summaries with the job comple- 
tion summary, he can determine the resources used for each job step. 



Here are some simple guidelines for reducing the use of resources while running a job. 

1. Use dynamic memory allocation. If you must use user-controlled memory allo- 
cation, don't increase your field size until just before the job step that requires 
the memory, and then return to automatic mode immediately after the job step. 

2. Don't acquire a resource before you need it. In general, this means that you 
should place statements such as REQUEST and ATTACH before the job step 
that uses them. For example, if your FORTRAN job uses an on-line tape 
named TAPE1, the REQUEST (TAPE1.MT) statement should lie between the 
FTN. and LGO. statements, not before the FTN statement. 

3. Relinquish a resource as soon as you no longer need it. This means that you 
should return any mass storage file or unload any on-line tape when you are 
through using it without waiting for job termination. This includes post-staged 
tapes and disposed files. 



CONTROL DATA 



J08,CP70,HT2. 

FTN. 

SUMMARY.' 

COMPASS. 

SUMMARY. 

REQUEST(TAPEi,MT) 

REQUEST(TAPE2,MT) 

LGO. 

7/S/9 in column one 

(FORTRAN SCLRC 
7/S/9 in column one. 

(CCHPASS SCLRCE 
7/8/9 in column one. 

CDATA) 
6/7 /S/9 in column one. 



Summary No. I taken 
here 





PROGRAM* 



Ffnal summary 
occurs at job 
comp [etion 



Example 12-9. Intermediate Accounting Information 
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o 

CO 
-4 
CO 
OJ 
O 

o 





ASCII 




Hollerith 


External 


ASCII 






ASCII 




Hollerith 


External 


ASCII 




CDC 


Graphic 


Display 


Punch 


BCD 


Punch 


ASCII 


CDC 


Graphic 


Display 


Punch 


BCD 


Punch 


ASCII 


Graphic 


Subset 


Code 


1026) 


Code 


(029) 


Code 


Graphic 


Subset 


Code 


(026) 


Code 


(029) 


Code 


:t 




00 1 


8-2 


00 


8-2 


3A 


6 


6 


41 


6 


06 


6 


36 


A 


A 


01 


12-1 


61 


12-1 


41 


7 


7 


42 


7 


07 


7 


37 


B 


B 


02 


12-2 


62 


12-2 


42 


8 


8 


43 


8 


10 


8 


38 


C 


C 


03 


12-3 


63 


12-3 


43 


9 


9 


44 


9 


11 


9 


39 


D 


D 


04 


12-4 


64 


12-4 


44 


+ 


+ 


45 


12 


60 


12-8 6 


2B 


E 


E 


05 


12-5 


65 


12-5 


45 


- 


- 


46 


11 


40 


11 


2D 


F 


F 


06 


12-6 


66 


12-6 


46 


* 


* 


47 


11-8-4 


54 


11-8-4 


2A 


G 


G 


07 


12-7 


67 


12-7 


47 


/ 


/ 


50 


0-1 


21 


0-1 


2F 


H 


H 


10 


12-8 


70 


12-8 


48 


( 


( 


51 


0-8-4 


34 


12-8-5 


28 


1 


I 


11 


12-9 


71 


12-9 


49 


) 


) 


52 


12-8-4 


74 


11-8-5 


29 


J 


J 


12 


11-1 


41 


11-1 


4A 


S 


S 


53 


11-8-3 


53 


118-3 


24 


K 


K 


13 


11-2 


42 


11-2 


4B 


= 


= 


54 


8-3 


13 


8-6 


3D 


L 


L 


14 


11-3 


43 


11-3 


4C 


blank 


blank 


55 


no punch 


20 


no punch 


20 


M 


M 


15 


11-4 


44 


11-4 


4D 


, (comma) 


, (comma) 


56 


0-8-3 


33 


0-8-3 


2C 


N 


N 


16 


11-5 


45 


11-5 


4E 


. (period) 


. (period) 


57 


12-8-3 


73 


12-8-3 


2E 








17 


11-6 


46 


11-6 


4F 


= 


ir 


60 


0-8-6 


36 


8-3 


23 


P 


P 


20 


11-7 


47 


11-7 


50 


I 


[ 


61 


8-7 


17 


12-8-2 


5B 


Q 


Q 


21 


11-8 


50 


11-8 


51 


) 


] 


62 


0-8-2 


32 


11-8-2 


5D 


R 


R 


22 


11-9 


51 


11-9 


52 


%tt 


% 


63 


8-6 


16 


0-84 


25 


S 


S 


23 


0-2 


22 


0-2 


53 


¥= 


" (quote) 


64 


8-4 


14 


8-7 


22 


T 


T 


24 


0-3 


23 


0-3 


54 


-* 


(underline) 


65 


0-8-5 


35 


0-8-5 


5F 


U 


U 


25 


0-4 


24 


0-4 


55 


V 


! 


66 


11-0 or 


52 


12-8-7 or 


21 


V 


V 


26 


0-5 


25 


05 


56 








11-8-2ttt 




11-0ttt 




w 


w 


27 


0-6 


26 


0-6 


57 


A 


& 


67 


0-8 7 


37 


12 


26 


X 


X 


30 


0-7 


27 


0-7 


58 


t 


' (apostrophe) 


70 


11-8-5 


55 


85 


27 


Y 


Y 


31 


0-8 


30 


0-8 


59 


1 


? 


71 


11-8-6 


56 


0-8 7 


3F 


z 


z 


32 


0-9 


31 


0-9 


5A 


< 


< 


72 


12-0 or 


72 


12-8-4 or 


3C 








33 





12 





30 








12-8-2ttt 




12-0ttt 




1 


1 


34 


1 


01 


1 


31 


> 


> 


73 


11-87 


57 


086 


3E 


2 


2 


35 


2 


02 


2 


32 


< 


@ 


74 


8-5 


15 


84 


40 


3 


3 


36 


3 


03 


3 


33 


> 


\ 


75 


12-8-5 


75 


08-2 


5C 


4 


4 


37 


4 


04 


4 


34 


~ 1 


-^-(circumflex) 


76 


12-8-6 


76 


11-8-7 


5E 


5 


5 


40 


5 


05 


5 


35 


; (semicolon) 


; (semicolon) 


77 


12-8 7 


77 


11-8-6 


3B 



t For 6000 SCOPE, 12 or more zero bits at the end of a 60-bit word are interpreted as end-of- 
line mark rather than two colons. End-of-line mark is converted to external BCD 1632. 

tt In installations using the CDC 63-graphic set, display code 00 has no associated graphic or 
Hollerith code; display code 63 is the colon (8-2 punch). 

1 1 t The alternate Hollerith (026) and ASCII (029) punches are accepted for input only. 



O 

o 
n 

n 

-< 

00 
m 

V| 
O 

to 

— i 

> 

Z 

a 
> 

a 
n 

> 

> 
n 

m 



JOB COMMUNICATION AREA 



B 



59 55 



36 29 



18 13 



06 00 



RA(S) 

RA(S)+1 

RA(S)+2 



RA(S)+53 8 



User/ System Interface 



7 



Parameters from the program call 



RA(S)+54 



8 



RA(S)+63 8 
RA<S)+64 8 
RA(S)+65 8 

\-/ ■ u ^o 

RA(S)+67 8 
RA(S)+70 8 



RA(S)+77 8 



(Available to user during job execution) 



statement 



Used for absolute program loading 



z 



name 



lwaec(lcm) 



fwaec(lcm) 




Reserved for loader 



z 



np 



lwacm( scm) 



f wacm( scm) 



si 



7 



7 



Reserved for loader 



Control statement image 



z 
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Word 



Bits 



Field 



RA(S) 



RA(S)+1 



RA(S)+2 
through 
RA(S)+63 ( 



59-18 


none 


17 


a 


16-13 


none 


12 


g 



11-06 
05-00 

59-00 



59-00 



ss 
si 

user/ 

system 

interface 



params 



Significance 

Reserved 

Abort flag (SCOPE 3.4 only) 

Reserved 

Go /pause flag 

Go 

1 Pause; wait for go 

Sense switches 
Sense lights 

Reserved for use during execution (SCOPE 3. 4 only) 



Parameters from the program call card; available to 
user during execution 

A keyword or value occupies bits 59-18. A delimiter 
is converted to a code and placed in bits 03-00. 



paramet er 


i-XwiixWw^ode 



RA(S)+64 t 




name 



np 



Code 


Delimiter 


00 


Continuation 


01 


comma 


02 


Equal sign 


03 


Slash 


04 


Left parenthesi 


05 


Plus sign 


06 


Minus sign 


07 


Blank 


10 


Semicolon 


11 




12 


) 


13 


> Reserved 


14 


( 


15 


; 


16 


Other 


17 


Termination 



Character 



None 



. or ) 



Name of file or program from control card or macro 



Number of parameters 
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Word 



Bits 



Field 



Significance 



RA(S)+65, 



/ 



RA(S)+66 8 < 



\ 

r 



59-36 

35-19 
18 

17-00 

59 
58-36 

35-19 
18 

17-00 



lwaec(lcm) Last word address +1 of loadable area in ECS/LCM of 
most recently completed load operation. 



none 



Unused; zero 



Library flag 

Name is a file name 

1 Name is a library name 

lwacm(scm) Last word address +1 of loadable area in CM/SCM of 
most recently completed load operation. 

x Set to 1 if CPU program' can issue XJ instruction. 

fwaec(lcm) First word address of loadable area in ECS/LCM of 
most recently completed load operation. 



none 

d 



Unused; zero 
RSS flag 1 ": 

Not in RSS mode 

1 RSS mode while using DIS 

fwacm(scm) First word address of loadable area in CM/SCM of 
most recently completed load operation. 



RA(S)+67 fi < 59-30 Reserved Used by loader 



RA(S)+70 

through 

RA(S)+77. 



29 



28-00 



59-00 



Reserved 

card 
image 



LDV completion flag; set by LDV upon completion of 
execution. Required for SCOPE 3. 3 compatibility. 



Used by loader 
Control card image 



SCOPE 3.4 only. 
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STANDARD LABELS 



STANDARD LABEL TYPES 

The four types of labels in the Standard are identified by the first four characters of 
the label. Contents of labels are described later. 



Type 

Volume Header 
File Header 
End of Volume 
End of File 



Identifier 


VOL1 


HDR1 


EOV1 


EOF1 



Significance 

Beginning of volume 
Beginning of information 
End of volume 
End of information 



LABEL GROUPS 

Each occurrence of one or more of the labels is called a group. The following groups 
are possible: 

Volume /header group composed of a VOL1 label and a HDR1 label separated from 
each other by an interrecord gap and from the beginning of information on the file 
by tapemark. 

End-of-file group composed of an EOF1 label separated from the end of information 
on the preceding file by a tapemark. If the volume contains only one file, the EOF1 
label is followed by a double tapemark. If the volume contains multiple files, the 
EOF1 label is separated from the next volume /header group by a tapemark. 

End-of-volume group composed of a EOV1 label separated from the information by 
a tapemark and followed by a double tapemark. 

Several different combinations of files and tapes are possible. First consider the simp- 
lest case, the single volume of tape containing only one file. This volume has label 
groups as shown in Figure C-l. 




BEGINNING-OF-VOLUME REFLECTIVE MARKER 
BOI 



V0L1 



HDR1 



END-OF-VOLUME MARKER 



EOI 



FILE A 



E0F1 




Figure C-l. Single Volume File 
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C-l 



Notice that the tape cannot be read beyond the double tapemark. If the information on 
the tape is extended beyond the current end-of-information, the EOF1 label and double 
tapemark are overwritten and a new label and double tapemark are written following the 
data. 

Notice also that the terminating label group consists of an EOF1 label, not an EOV1 
label. An EOV1 label is written only when data must be continued on a subsequent 
volume. In other words, the EOV1 label tells you that file information is coming from 
another reel. As an example, consider the multivolume file illustrated in Figure C-2. 



BOI 









'f 














r 


V0L1 


HDRi 


* 


FILE A 


f 


-* 


E0V1 


■* 


* 


V//A ' 




VOL! 



HDRI 



FILE A 
(CONTINUED) 



E0F1 



11 
EOI 




2AX28A 



Figure C-2. Multivolume File 



Notice that when a file is continued on a second reel (Figure C-2), it is headed again by 
a volume /header group. On the final volume for the file, it is terminated by an end-of- 
file group. 

Both tapes in the preceding illustrations terminate with double tapemarks. This is stan- 
dard for all SCOPE 2 tapes. Figure C-3 illustrates a volume containing multiple files. 
Here, a file is not terminated by a double tapemark when it is followed by another file. 
This format is not currently supported by SCOPE 2. 



BOI 




V0L1 



HDRI 



EOI 



FILEA 



BOI 



E0F1 



HDRI 



EOI 



"T" 

FILEB 



E0F1 




2AX29A 



Figure C-3. Multifile Volume 



Let us also consider the multivolume multifile set composed of several labeled files 
occupying several volumes (Figure C-4). Although this combination is allowed under 6000 
SCOPE, it is not allowed under SCOPE 2. 



C-2 
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JP- 


V0L1 


HDR1 


* 


"ft 
FILEA 




EOF1 


* 


HDR1 


* 


11 
FILEB 

JJ 


* 


EOV1 


* 


-* 


K0 ' 

1**3 



JE2L 


VOLl 


HDR1 


* 


FILE B U 
(CONTINUED) 


* 


EOVi 


-* 


* 


prrra 



, 03 


VOLl 


HDR1 


* 


FILE B ?/ 
(CONTINUED) 


X 


EOF1 


* 


HDR1 


* 


FILEC 


* 


EOF1 


* 


* 


fca* 


— 

■ 


^ 






























elj 



2AX30A 

Figure C-4. Multivolume Multifile 

On rare occasions, the end -of -volume reflective marker and the end-of-information may 
coincide. When this occurs, the labeling that terminates a reel is somewhat different 
from the labeling previously described. For example, Figure C-5 shows that the end- 
of- volume marker is reached at the same point that file A concludes. A tapemark is 
written followed by an end-of-volume label and a double tapemark. 



Wl 



REFLECTIVE MARKER 



FILE A 



EOVI 




FIRST VOLUME 



2AX3IA 



Figure C-5. Simultaneous EOI and EOV Marker 

In this case, the end-of-file label must be recorded on the next volume. Figure C-6 
illustrates the format used on the second reel: 




VOLl 



HDR1 



E0F1 



END OF FILE A 



■SECOND VOLUME 



2AX32A 



Figure C-6. Continuation of EOF Labeling 
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The double tapemark between the volume /header group and the end-of-file trailer group 
indicates that no further data appears within file A. Since this condition constitutes a 
multivolume set, file A cannot be followed by a second file for SCOPE 2 usage. That 
is, the presence of file B would produce a multivolume multifile set. 

LABEL CONTENT 

In the following description, if a field is optional, it contains either the designated infor- 
mation or blanks. Digits are through 9. A character is any of the characters listed 
for the 63 -character subset. (See Label Parity and Character Conversion.) 

Volume Header Label 

The volume header label is an 80- character block that must appear as the first block 
of every tape volume (reel). 



Character 
Position 


Field 

Name 


Length 
in Characters Contents 


1-3 


Label identifier 


3 Must be VOL 


4 


Label number 


1 Must be 1 


5-10 


Volume serial number 


6 Six characters nermar 



11 



12-37 



Accessibility 



Reserved for future 
standardization 



26 



by the owner to identify this physical 
volume and supplied on STAGE or 
REQUEST statement 

A character that indicates any restric- 
tions on who may have access to the 
information in the volume. A blank 
means unlimited access. Any other 
character means special handling in 
the manner agreed between the inter- 
change parties. 

Must be blanks 



38-51 



52-79 



Owner identification 



Reserved for future 
standardization 



14 



28 



Any characters identifying the owner 
of the physical volume 

Must be blanks 



80 



Label standard level 



1 means the labels and data formats 
on this volume conform to the require- 
ments of this standard. Blank means 
the labels and data formats on this 
volume require the agreement of the 
interchange parties. Record manager 
uses 1. 



C-4 
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File Header Label 

The file header label must be the first 80- character block of a file. When a file is the 
first on a volume or is continued on more than one volume, the file header label must 
be repeated after the volume header label on each new volume for the file. 



Character 


Field 




Length 




Position 


Name 


in 


Characters 




1-3 


Label identifier 




3 


Must be E 


4 


Label number 




1 


Must be 1 


5-21 


File identifier 




17 


Any char a 



22-27 Set identification 



Contents 



Any characters agreed on between the 
originator and the recipient 

Any characters to identify the set in 
which this file is included. This iden- 
tification must be the same for all files 
of a multifile set. 



28-31 File section number 



0001 for the first header label of a 
file. This value is incremented by 1 
for each continuation of the file on a 
new volume. 



32-35 File sequence number 



Four digits denoting the sequence of 
files within the set: the first file is 
0001, the second 0002, etc. In all 
labels for a single file, this field will 
contain the same number. 



36-39 Generation number 

(optional) 



Four digits denoting the current stage 
in the succession of one file being gen- 
erated by an update to a previous file. 
When a file is first created, its genera- 
tion number is 0001. 



40-41 Generation version 

number (optional) 



42-47 Creation data in 

Julian format 



48-53 Expiration date in 

Julian format 



Two digits distinguishing successive 
iterations of the same generation. The 
generation version number of the first 
attempt to produce a file is 00. 

A space followed by two digits for the 
year, followed by three digits (001-366) 
for the day. 

Same as the preceding field. The file 
is regarded as expired when today's 
date is equal to or later than the expi- 
ration date. When the file is expired, 
the remainder of this volume may be 
overwritten. Thus, to be effective on 
multivolumes, the expiration date of 
a file must be less than or equal to 
the expiration date of all previous files 
on the volume. SCOPE 2 checks only 
the first file expiration date. 
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Character 
Position 

54 



55-60 
61-73 

74-80 



Field 

Name 

Accessibility- 



Length 
in Characters 



Block count 

System code (optional) 



Reserved for future 
standardization 



6 
13 



Contents 

A character that denotes any restric- 
tions on who may have access to the 
information in this file. A blank means 
unlimited access. Any other character 
means special handling in a manner 
agreed between the interchange parties. 
Record manager uses blank. 

Must be zeros 

Thirteen characters identifying the 
operating system that recorded this 
file. Record manager uses blanks. 

Must be blanks 



End-of-File Label 



The 80-character end-of-file label 


is 


the last 


block of a file. 




Character 
Position 


Field 
Name 


in 


Length 
Characters 




Contents 


1-3 


Label identifier 




3 




Must be EOF 




4 


Label number 




1 




Must be 1 




5-21 


File identifier 




> 
17 










22-27 


Set identification 




6 










28-31 


File section number 




4 










32-35 


File sequence number 




4 










36-39 


Generation number 




4 






Same as the c 


orresponc 



(optional) 

40-41 Generation version 

number (optional) 

42-27 Creation date 

48-53 Expiration date 

54 Accessibility 

55-60 Block count 



the first file header label for this file 



Six digits denoting the number of data 
blocks (exclusive of labels and tape- 
marks) since the preceding HDR label 
group. 
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Character 
Position 

61-73 



74-80 



Field 
Name 



Length 
in Characters 



System code (optional) 



Reserved for future 
standardization 



13 



Contents 

Same as the corresponding field in 
the first file header label for this file 

Must be blanks 



End-of- Volume Label 

The 80-character end-of-volume label appears at 
set. 



the end of all but the last volume in a 



Character 
Position 


Field 

Name 


in 


Length 
Characters 


Contents 


1-3 


Label identifier 




3 


Must be EOV 


4 


Label number 




1 


Must be 1 


5-21 


File identifier 




17 






22-27 


Set identification 




6 






28-31 


File section number 




4 







C5Z-C50 x? ue sequence nuniDer 

36-39 Generation number 

(optional) 



40-41 Generation version 

number (optional) 

42-47 Creation date 

48-53 Expiration date 

54 Accessibility 

55-60 Block count 



61-73 System code 



74-80 Reserved for future 

standardization 



6 
6 
1 
6 

13 



Same as the corresponding fields in 
the first file header label of the last 
file begun on this volume 



Six digits denoting the number of data 
blocks (exclusive of labels and tape- 
marks) since the preceding HDR label 
group 

Thirteen characters identifying the 
operating system that recorded this 
file. Record manager uses blanks. 

Must be blanks 
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SUMMARY OF FILE FORMATS 



This appendix summarizes record types and block types supported by the record manager. 

W RECORDS 

The W record type is the most important record type in the SCOPE 2 system. It is the 
only record type recognized by the loader and is the only record type that can be dis- 
posed, that is, printed or- punched. It is also used for the INPUT file. Refer to Section 
9 for descriptions of printer input, and punched card input and output. 

In the SCOPE 2 system, the default record type is W. A notable exception is COBOL. 
For W to be the default within COBOL requires a combination of variable length records 
according to the RECORD CONTAINS clause, and the BLOCK CONTAINS clause. Other- 
wise, the user can explicitly set the record type to W by using a FILE statement with 
RT=W. 

On an output request (for example, a FORTRAN WRITE statement) the record manager 
expands the data to the nearest full-word boundary and prefixes the data with a W control 
word (Figure D-l). Thus, in its recorded form, the W record consists of a W control 
word followed by an integral number of 60-bit words. The last word may be partially 
unused, that is, a field in the W control word indicates how many bits of the last word 
in the record do not contain data. The unused bits are zeroed. 

NOTE 

If you want your program to be able to accept 

W or S records, always read or write full words. 

A W record is considered "zero-length" when it consists of a W control word only and 
is not accompanied by data. Zero-length records serve as partition and section delimi- 
ters. 

On an input request (for example, a FORTRAN READ statement) the record manager re- 
moves the W control word and places the data in the user buffer. 

On magnetic tape, W records can be recorded in binary mode only. When using format- 
ted reads and writes, the maximum record size is limited to 150 by the FORTRAN object- 
time routines. 

S RECORDS 

S records are also known as 6000 SCOPE Standard and 7600 SCOPE 1. 1 I-Mode. This 
is the only record type recognized by both SCOPE 3.3 and SCOPE 2. 

Only two record types, S and X are defined in terms of physical blocks. The S record 
(Figure D-2) consists of blocks of data terminated by a short block. For S records, 
blocking is set to C-type by the system BT=C is not required. The short block has 
a 48-bit level number appended to it where level is 0-16q. If the data portion of the 
record terminates on a block boundary, the terminating short block is considered as 
zero-length because it consists of the 48 -bit level number only. Another kind of zero- 
length block, the partition delimiter where level is 173, can also occur. 
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LOAD 
POINT 
(BOD- 



BLOCKED 
MAGNETIC TAPE 
OR MASS 
STORAGE 



BLOCKS SEPARATED BY INTERRECORD GAP 
(RECOVERY CONTROL WORD ON MASS STORAGE) 



r 



BLOCK 



BLOCK 



BLOCK 



BLOCK 




C BLOCKING 



EACH C BLOCK CONTAINS 
MBL OR LESS CHARACTERS. 



LOGICAL 
RECORD 



LOGICAL 
RECORD 



LOGICAL 
RECORD 



LOGICAL 
RECORD 



LOGICAL 
RECORD 



RECORDS CAN 
SPAN BLOCKS 



LOGICAL 
RECORD 



EACH BLOCK LENGTH IS SUM 
OF RB RECORD LENGTHS. 
RECORD COUNT (RB) INCLUDES 
ZERO -LENGTH RECORDS. 



EACH BLOCK LENGTH IS SUM 
OF NUMBER OF RECORDS 
CONTAINED IN MBL. BOTH 
RECORD SIZE AND BLOCK 
SIZE ARE VARIABLE. 



EACH I BLOCK CONTAINS MBL 
OR LESS CHARACTERS . 



K BLOCKING 



LOGICAL 
RECORD 



LOGICAL 

RECORD 

2 



LOGICAL 

RECORD 

3 



LOGICAL 
RECORD 

4 



LOGICAL 

RECORD 

RB-I 



LOGICAL 

RECORD 

RB 



E BLOCKING 



LOGICAL 
RECORD 



LOGICAL 
RECORD 



LOGICAL 
RECORD 



LOGICAL 
RECORD 



LOGICAL 
RECORD 



LOGICAL 
RECORD 



I BLOCKING 



LOGICAL 
RECORD 



LOGICAL 
RECORD 



LOGICAL 
RECORD 



LOGICAL 
RECORD 



LOGICAL 
RECORD 



LAST BLOCK HAS RB 
OR LESS RECORDS. 



BLOCK ENDS ON LAST 
FULL RECORD THAT DOES 
NOT CAUSE BLOCK LENGTH 
TO EXCEED MBL. 



RECORDS CAN 
SPAN BLOCKS 



LOGICAL 
RECORD 



I 

c 
w 


LOGICAL 
RECORD 


LOGICAL 
RECORD 


: 



RECORD USER SEES 



DATA 



UNUSED BITS IN 
"LAST WORD < 60 



7" 



BOI 



UNBLOCKED MASS STORAGE 



EOI 



LOGICAL 
RECORD 



LOGICAL 
RECORD 



LOGICAL 
RECORD 



LOGICAL 
RECORD 



LOGICAL 
RECORD 



LOGICAL 
RECORD 



LOGICAL 
RECORD 



2AX33A 



Figure D-l. W Record Control Word Format 
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In the user buffer, the S record consists of the data without the 48-bit appendage. On 
an output request (for example, a FORTRAN WRITE or BUFFER OUT), the record 
manager blocks the data and adds the 48-bit level number. On output, the level number 
is always zero for records. 

On an input request (for example, a FORTRAN READ or BUFFER IN statement), the 
record manager deblocks the data, removes the 48-bit level number, and returns end-of- 
record status. End-of-record status is passed to the user. The level number is main- 
tained in the FIT. An S record must be a multiple of 10 characters (full 60-bit words). 

To specify record type S, set RT=S on the FILE statement. On magnetic tape, S records 
can be recorded in binary mode only. When using formatted reads and writes, the maxi- 
mum record size is limited to 150 by the FORTRAN object-time routines. 



c BLOCKING 



RECORD CAN SPAN BLOCKS 



EACH BLOCK OTHER 
THAN LAST IN 
RECORD CONTAINS 
MBL CHARACTERS 



BLOCK 



BLOCK CONTAINS ALL OR PART OF A RECORD 



LOAD 

POINT 

(BOI) 




SHORT OR ZERO- LENGTH 
BLOCK WITH LEVEL O-I60 
48 -BIT APPENDAGE 



BLOCK 



BLOCK BLOCK 
/! 



BLOCK 



BLOCK 



BLOCK 



BLOCK 



ZERO-LENGTH BLOCK 
-WITH LEVEL I7 8 
48 -BIT APPENDAGE 



EOI 



EOP 



BLOCK 



BLOCK 



BLOCK 



BLOCK 



LOGICAL 
RECORD IN 
STORAGE 


BLOCK 

1 


1 BLOCK 

! 2 


!( > 
1 BLOCK | 
I "" 2 ! 


BLOCK 

n-l 


1 

! SHORT 

i BLOCK 
1 


w 




TO 
16 














APPENDA< 


LOGICAL 
RECORD IN 






DATA 








USER BUFFER 
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Figure D-2. S SCOPE Logical Record Format 
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X RECORDS 

SCOPE 2 allows reading of files consisting of X records. It does not allow a user to 
create files with X records. X record type is the same as X-mode format for 6000 

SCOPE 3.2 and 7600 SCOPE 1.1. A logical record is divided into fixed-length blocks 
containing 60-bit words. Each block contains 5120 characters. A short block marks 
end-of-record. 

If the length is an exact multiple of blocks, an additional short block, sometimes called 
a zero-length block because it contains no data, is necessary. On input, the record 
manager then deletes this zero-length block consisting of 48 bits of zero. 

X records differ from S records in that the 48 -bit appendage appears only when neces- 
sary, and there is no level number associated with the record. 

An X record must be a multiple of 10 characters (full 60-bit words). To specify tvDe 
X, set RT=X on a FILE statement. 

Conventionally, end-of-information is not defined for X-mode tapes. It is the user's 
responsibility to know the structure of the tape (that is, number of partitions as indi- 
cated by tapemarks). 6000 SCOPE 3.2 and 7600 SCOPE 1.1 append four and two tape- 
marks respectively, at the end of data. 
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Figure D-3. X X-Mode Logical Record Format 
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Z RECORDS 

The Z (zero byte) record type is commonly used in the 6000 SCOPE systems and the 
7600 SCOPE 1. 1 system for print or card files. 

On a file, the Z record consists of an integral number of 60-bit words of data in which 
the last word has the low-order 12 bits set to zero (contains a zero byte). 



In the user form, the Z record consists of a fixed number of characters of data, 
user does not see the zero bytes. 



The 



Consider first what happens on an output request such as a FORTRAN WRITE or BUFFER 
OUT statement. Referring to Figure D-4, the record manager takes a specified number 
of characters (FL) from the buffer and either (A) removes trailing blanks to the nearest 
word boundary minus 2 characters and inserts 12 bits of zero in the low-order position 
of the word, or (B) adds blanks to the nearest word boundary minus 2 characters and 
appends a 12 -bit zero byte. For example, if FL is 80 and you supply 62 characters of 
data followed by 18 blanks, the record manager removes 12 blanks to make 68 characters 
and adds a zero byte to make a full 7 words. If, on the other hand, you had supplied 
79 characters, the record manager would add 9 blanks making 88 characters which, with 
the addition of the zero byte, makes the Z record 9 words. 

Now consider what happens on an input request such as a FORTRAN READ or BUFFER 
IN statement. When reading Z records from a file, the record manager takes full words 
of data until it detects a word with a zero byte in the low order position of the word. 
It removes the zero byte and places the data in the user buffer. If the number of char- 
acters of data is less than FL, the record manager adds blanks to FL characters. This 
means if FL is 80 and the record manager reads a 68-character record (discounting the 
zero byte), the data is expanded to 80 characters. On input, when the record manager 
reads 88 characters (of which 9 are blanks added on the write), the Z record exceeds the 
FL specified. This does not result in an error since the record manager allows a Z re- 
cord to exceed FL by as much as one word as long as the characters are all blanks. 
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Figure D-4. Padding of Z Records 
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Z -record specification requires two parameters on the FILE statement, the RT=Z para- 
meter and the FL parameter. FL supplies the decimal count of the fixed length of the 
user record in characters. It must be large enough to accommodate the largest record 
on the file. 

Usually, the FL parameter will be equivalent to a coded card and (FL=80) or to a print 
line (FL = 137). FL must be large enough to accommodate the largest record. 

When Z records are blocked according to block types E and K, partition delimiters are 
in the form of tapemarks; section delimiters are not possible. When Z records are C- 
blocked, a section delimiter consists of a short or zero-length block appended by a 48-bit 
level number where level is 0-16 fi . A partition delimiter consists of a 48-bit level 17 
appendage. 8 

When generating Z records, it is the user's responsibility to assure that two display code 
colons do not occur in the lowest order character positions of a word causing a super- 
fluous record delimiter. If the application has records with many trailing blanks, Z re- 
cords can provide savings in storage because less data is stored when blanks are re- 
moved. However, processing of Z records is slower than processing of W records. On 
magnetic tape, Z records can be recorded in binary mode only. When using formatted 
reads and writes, the maximum record size is set to 150 by the FORTRAN object-time 
routines. 
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Figure D-5. Z Zero Byte Records with C Blocking 
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Figure D-6. Z Zero Byte Records Unblocked or with K and E Blocking 
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F RECORDS 



Fixed length (F) records are commonly used in the computer industry and are the most 
efficient for COBOL to handle in terms of CPU utilization and throughput. 

F records (Figure D-7) are the same as 7600 SCOPE 1.1 E-mode files. F record type 
is required for the SCOPE 2 direct (DR) file organization. On an output request such as 
a FORTRAN WRITE or BUFFER OUT, the record manager takes a fixed number of char- 
acters (FL) from the user buffer and writes them on the file. On an input request such 
as a FORTRAN READ or BUFFER IN, the record manager reads the next FL characters 
on the file and places them in the user buffer. 
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Figure D-7. F Fixed Length Record Format 
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F records are generated by COBOL object time routines according to the File Definition 
entry. 

Specification of F records requires the RT and FL parameters on the FILE statement. 
FL supplies a decimal count of the fixed length in characters. 

On magnetic-tape, F records can be recorded in either binary or coded mode. 

Section delimiters are not possible; partition delimiters are equivalent to tapemarks on 
blocked files. 

D RECORDS 



Decimal count (D) records are provided primarily for COBOL usage. 

D records (Figure D-8) are handled by the record manager as follows. On an output 
request (for example, a FORTRAN WRITE or BUFFER OUT) the record manager ex- 
tracts the decimal character count from a length field placed in the data by the user, 
and writes that number of characters on the file. 

On an input request, the record manager again looks at the length field and places the 
specified number of characters in the user buffer. 

To use D records, you must specify the following FILE statement parameters: 

RT=D Specifies record type as D 

LL=m m is the length in characters (1 to 6) of the length field in each 

record. The maximum record size allowed is determined by the 
LL parameter. If LP is 0, no data precedes length field. If LL = 6, 
the maximum record size is 999,999. If it is 5, the maximum re- 
cord size is 99, 999, etc. However, MRL takes precedence if it is 
less than the maximum allowed for the field. 

LP=n n is the beginning position in characters of the length field. The 

first character in the record is numbered zero. LP+LL must not 
exceed the record length. 

The decimal size must be in the length field right-justified in display code with display 
code zero fill. The record size includes the length field. 

Section delimiters are not possible? partition delimiters are equivalent to tapemarks on 
blocked files. 
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R RECORDS 

Record mark (R) records (Figure D-9) are a COBOL record type. On output, the record 
manager takes the characters up to and including the record mark character from the 
user buffer and writes them on the file. On input, the record manager reads the record 
including the record mark character and places it in the user buffer. 

R-type records are variable length. The largest must not exceed the maximum record 
length (MRL) specified in the FIT. 

The conventional record mark character is ] . This is the default for COBOL and for 
6000 record manager. 7600 record manager, however, defaults to a colon, which is 00 
in display code. 

If you are a COBOL programmer and wish to change the record mark character, or if 
you are a FORTRAN programmer and wish to read a file that has a record mark char- 
acter other than colon, you can use the RMK parameter on the FILE statement. 

NOTE 

If the FILE statement changes the character, the 
data name RECORD-MARK cannot be used to move 
the character to an output record area. 

In the RMK specification, use the decimal or octal equivalent (octal value is suffixed 
with B) of the display code value for the desired record mark character. Thus, to spe- 
cify the ] character, use either RMK=50 or RMK=62B. Use RT=R to specify R record 
type. When using R records, it is the user's responsibility to assure that the record 
mark character does not occur elsewhere in the record. 

When using R type records, it is possible to define a minimum record length (MNR=n 
characters) which allows the record mark character to occur before the minimum char- 
acter position without being detected by the record manager. Using MNR also speeds 
up processing because all the records are greater than a certain number of characters. 
Record manager begins searching for the record mark character at the character follow- 
ing the nth character. If no MNR is specified, record manager begins searching with 
the first character in each record, or in the case of COBOL programs, according to 
the RECORD CONTAINS clause. 

R type records can be recorded in either binary or coded mode on magnetic tape. 

Section delimiters are not possible; partition delimiters are equivalent to tapemarks on 
blocked files. 
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Figure D-9. R Record Mark Character Record Format 
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T RECORDS 

Trailer (T) records (Figure D-10) are the most complex record type. T records are 
specified by COBOL programs as shown in Table 3-2. 

FORTRAN programs using T-type records require a file statement with the following 
parameters specified. 

RT=T Specifies T record type 

HL=hl Length of header in characters 

TL=tl Length of each trailer in characters 

CL=cl Length of count field in characters (1 to 6) 

CP=cp Beginning character position in header of count field. CP+CL 

must not exceed the header length. The first character is 
numbered 0. 

No data precedes the trailer count field if CP=0. The number of fixed length trailers 
must be inserted into the trailer count field in display coded decimal, right-justified 
with display code zero fill. 6000 record manager allows blank fill; 7600 record manager 
does not. 

The size of the record is determined by the header length plus the sum of the trailer 
lengths. This value must not exceed the maximum allowed for a record (MRL) set in 
the FIT. 

On an output request, the record manager determines where the count field is from the 
FIT, takes the header length plus n times the trailer length characters, and writes them 
onto the file. 

On input, it performs a similar operation to read the record and places it in the user 
buffer. Section delimiters are not possible; partition delimiters are equivalent to tape- 
marks on blocked files. 
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Figure D-10. T Trailer Count Record Format 
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U RECORDS 

The undefined record type. (U) is commonly used in the computer industry. It is some- 
times referred to as "universal" format. 

For U format records (Figure D-ll), the record manager receives no definition of what 
to interpret as a record. Thus, on an unblocked, C blocked, or E blocked file, the 
entire file consists of a single U record on input. 

In the special case of K blocking with one record per block, the record manager uses 
block delimiters as end-of-record delimiters thus giving the U records some definition. 
U records can be generated in a COBOL program depending on the RECORD CONTAINS 
and BLOCK CONTAINS clauses. 

To specify record type as U, set the RT = U parameter on the FILE statement. 

A file is often defined as U when no other definition is applicable. For example, the 
COPYXS routine uses a U description to convert X mode tapes to S type records. For 
U-type records, C blocking and E blocking are possible when accessed through a COM- 
PASS language program. These combinations are not illustrated. 

Section delimiters are not possible; partition delimiters are equivalent to tapemarks on 
blocked files. 
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USING RECORD MANAGER FOR FILE FORMAT CONVERSION E 



A file format conversion, that is, change in record type, block type, or file organization, 
occurs when the description for the input file for a copy differs from the description for 
the output file. This feature is not compatible with SCOPE 3.4 for which the copy utili- 
ties do not recognize FILE statements. 

HOW COPY CONVERTS FILES 

Any of the COPY statements cause the copy routines to be loaded and executed. Neither 
the input file nor the output file is repositioned before its use. The copy routine opens 
the files and establishes a buffer in SCM to use for the copy, as described in Section 
10. Assuming that automatic core memory is in effect, the size of the buffer is by de- 
fault 1000„ words (5120 characters) or is determined by whichever MRL or FL is larger 
for the two files. The MRL may be the maximum length of a partial record rather than 
the entire record. Setting MRL, except when using R-type records or when converting 
from S, X, Z, or R record types to W record types, does not limit the maximum size 
of the records that can be handled by the copy. If output record type is W, the copy 
must be able to determine full record size before writing out any of the record because 
the W control word precedes the record. Thus, if input record type is S, X, Z, or R, 
the MRL must be large enough to accommodate the largest record on the input file. If 
the buffer is inadequate for the copy, the job is terminated accompanied by the message 
EXCESS DATA in the dayfile. 

The copy routine gets all or part of a record from the input file and places the data in 
the SCM buffer. Any recovery control words, internal control words, W control words, 
zero bytes, or level number appendages are removed. That is, normal record proces- 
sing performed by the record manager takes place. 

The copy routine checks status to determine whether EOR, EOS, EOP, or EOI has 
occurred. If EOR has not occurred, the partial record is put in the output file. In 
writing out the record, the record manager adds any recovery control words, internal 
control words, W control words, zero bytes, or level number appendages required by 
the format defined for the output file. In the case of D, T, and R output records, the 
count field or record mark character must be in the input data; it is not generated or 
altered by the copy routine. The record manager uses the count or record mark char- 
acter to determine how much data to write. 

Upon encountering EOR, the copy routine writes the remainder of the record and incre- 
ments the record count. If the copy is COPYR, the copy terminates after n records 
have been copied or if a higher -order delimiter is encountered on input. If the copy is 
COPYS, COPYBR, or COPYCR, the copy terminates after n sections have been copied 
or a higher order delimiter is encountered. A COPYS of S record considers each re- 
cord a section. If the copy is COPYP, COPYCF, or COPYBF, the copy terminates when 
n partitions or an EOI is encountered. Upon completion of the copy, the copy routine 
writes an EOS if copying sections or an EOP if copying partitions. 

PROCEDURE FOR CONVERTING FILE FORMATS 



1. Describe your input file using a FILE statement shown in the accompanying tables, 
if necessary. 

2. Describe your output file using a FILE statement shown in the accompanying tables, 
if necessary. Record type cannot be X. 
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3. The size of the buffer used for the copy /conversion is determined by whichever max- 
imum record length (MRU or fixed length (FL) is larger for the two files. The de- 
fault MRL is 5120 characters (1000„ words) if neither of the files specifies MRL or 
FL. The buffer size is a factor in the following cases. 

a. If input or output record type is T or D, MRL must be large enough to include 
the count field. 

b. If output record type is W, the copy must be able to determine the record size 
before writing the record. This means that MRL must be large enough to incor- 
porate the largest record on the input file when the input record type is S, X, 
Z, or R. 

c. If only one file specifies MRL or FL, that value sets the size of the buffer for 
both files. 

NOTE 

If input file is INPUT and output FL/MRL is 
80, input data may exceed MRL due to JANUS 
processing as described in Section 9. 

4. Select the copy routine you wish to use as you would for an exact copy. 



W RECORD CONVERSIONS 



FO 


BT 


FILE Statement 


Notes and Rules 


SQ 


Unblocked 
I 
C 
K 

E 


None; defaults all apply 

FILE(lfn,BT=I) 

FILE(lfn,BT=C) 

FILE(lfn,BT=K) 

FILE(lfn,BT=E) 


1,2,3,9 

1.4, 10 

1.5, 10 

1.6, 10 
1,5, 10 


WA 


Unblocked 


FILE(lfn,FO=WA) 


1,3,7 


LB 


Unblocked 


FILE(lfn, FO=LB) 


1,3,7,8,9 



Notes and Rules 

1. The following delimiters are recognized on input and recreated on output. W control 
words are removed from the data before it is placed in the buffer and are added to 
data when output is W record type. 

EOR Type W control word (neither flag bit nor delete bit set) 

EOS Type 3 W control word (flag bit and delete bit both set) 

EOP Type 2 W control word (flag bit set; delete bit not set) 

EOI Input on magnetic tape: a pair of tapemarks or a tapemark, EOF1 label, 

and a double tapemark 

Output: a double tapemark 

Section delimiters will be lost if input type is W and output type does not support 
sections (not W or not Z with C blocking). 
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Partition delimiters will be lost if input type is W and output file type does not 
support partitions (that is, output type not W or not blocked sequential). 

Usually, W records cannot be converted to S records because S records must be 
full words of data. 

If input file contains on S, X, Z, or R record that exceeds 5120 characters, the FILE 
statement for input file or output file must specify MRL to guarantee that the buffer 
for the copy is large enough to hold the record. Maximum record size allowed is 
determined by amount of SCM available. 

If input record type is D or T, MRL must be large enough to encompass the count 
field. 

The largest record that can be converted to W format is 2,621,420 characters. 

Recovery control words are removed from blocked files on input and reinserted on 
output if the output file is to be blocked. 

If input file is W records, deleted W records (Type 1 W control word) are not copied. 
On a W-to-W copy, control words may not be exactly duplicated. 

2. The unblocked W record file is the most important format in the SCOPE 2 system. 
It is the only format recognized by the loader and is the only format that can be 
used for unit record files. 

When input to the loader originates on magnetic tape or when you wish to go tape-to- 
punch or tape-to-print, you must copy the tape file to an unblocked W file which can 
then be loaded, punched, or printed. 

3. This file type cannot be used with a STAGE or magnetic tape REQUEST statement. 
For SQ files, the file will become blocked (see I blocked file). For WA or LB 
files, blocking is illegal. 

4. BT=I is not required if REQUEST MT or STAGE is used. This is the only file des- 
cription using I blocking. Default block size is 5120 characters and is the only size 
allowed by SCOPE 3.4. Maximum block length (MBL) must be a multiple of 10 
characters (full words). 

5. The default maximum block length (MBL) is 5120 characters. MBL must be a multi- 
ple of 10 characters (full words). K and E blocking are not commonly used with W 
records because neither allows records to span blocks. 

6. Default records per block (RB) is 1; default maximum record length is 5120 char- 
acters. MBL must be a multiple of 10 characters (full words); MBL = MRL x RB. 
Zero-length W control words are also counted as records (EOS and EOP). 

7. An attempt to copy/convert a WA or LB file results in an informative message. 
Since deleted records are removed, an index for a word addressable file will be in- 
validated by the copy when records are deleted. 

8. This is the only file type using FO=LB. 

9. Unblocked sequential files are not supported by 6000 SCOPE 3.4. 
10. On magnetic tape, W records can be recorded in binary mode only. 
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S RECORD CONVERSIONS 



FO 


BT 


FILE Statement 


Notes and Rules 


SQ 


C 


FILE(lfn,RT=S) 


See below 



Notes and Rules 

Default blocking type is always C when record type is S. 

S records are also known as 6000 SCOPE standard and 7600 SCOPE 1. 1 I-mode. An 
S record must be a multiple of 10 characters. Copy aborts if output is S and input 
record is not a multiple of 10 characters. Thus, copying from INPUT to a file with 
record type S is not possible. 

Default block size (MBL) is 5120 characters. This is the equivalent of a 6000 SCOPE 
physical record unit (PRU) for S/L devices. MBL must be a multiple of 10 characters 
(full words). 

If the file is being converted to W format, either the input file or the output file must 
specify MRL to guarantee that the SCM buffer for the copy is large enough to hold the 
record. Maximum record size allowed is determined by amount of SCM available. 

An S record that contains display code with zero-byte delimiters can be redefined as Z 
record type. On magnetic tape, S records can be recorded in binary mode only (odd 
parity). 

When COPYS or its equivalent (COPYBR/COPYCR) is used, each S record is interpreted 
as a section. For all other copies, each S record is interpreted as a record. That is, 
for all but COPYS, COPYBR, and COPYCR, the following delimiters are accepted on S 
record input. 

EOR A short or zero-length block with a level through 16„ 48-bit appendage 

EOP A zero-length block with a level 17 fl 48-bit appendage 

EOI A pair of tapemarks or a tapemark, EOF1 label, and two tapemarks 

For S record output, the following delimiters are generated. 

EOR A short or zero-length block with a level to 16,, 48-bit appendage. Levels 

1 to 16 R are not lost in copying S and Z records. 

EOP A zero-length block with a level 17„ 48-bit appendage 

EOI Two tapemarks 

On mass storage delimiter, information is maintained in recovery control words. Re- 
covery control words and 48-bit appendages are not transferred to the copy buffer. They 
are removed from input or inserted on output. Corresponding status is returned to the 
copy routines. 
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X RECORD CONVERSIONS 



FO 


BT 


FILE Statement 


Notes and Rules 


SQ 


C 


FILE(lfn, RT=S) 


See Notes and Rules 



Notes and Rules 

X records can be input only. You cannot copy to X. Default blocking type is always C 
when record type is X. 

X records are also known as 6000 X-MODE and 7600 SCOPE 1. 1 X Format. They are 
not supported on SCOPE 3.4. 

An X record must be a multiple of 10 characters; otherwise COPY aborts. Default block 
size (MBL) is 5120 characters. This is equivalent to a 6000 SCOPE physical record unit 
for an S/L device. MBL must be a multiple of 10 characters. 

If the file is being converted to W format, either the input file or the output file must 
specify MRL to guarantee that the SCM buffer for the copy is large enough to hold the 
record. Maximum record size allowed is determined by the amount of SM available. 

The following delimiters are recognized on input. 
EOR A short or zero-length block 

EOP A single tapemark 

IhKJL tX pttil' Ul ld[JClliai"ft.D Ui a. tapciiiai a, j_iwj_ ■ j. j-o-wCj., cj.xj.^1 o vv ^ ou^vmuinu 

Partition delimiters on the input file will be lost if the output file type does not support 
partitions (not W or not blocked sequential). On blocked mass storage, tapemarks are 
maintained in recovery control words. 

SCOPE 2 includes a utility named COPYXS designed solely to convert X-mode tapes to 
S record type. 

fCOPYXSUto^. lfn out , n) 

Parameter n is a count of the partitions to be copied. A tapemark is interpreted as an 
end-of -partition. 

COPYXS assumes that the input file is described as follows: 
/FILE(TAPE1, RT=U) 

By default, then, BT=K, RB=1, and MBL = 5120. 

The input file can be renamed on the COPYXS statement; otherwise, any change to the 
description causes the job to abort. COPYXS assumes that the output file is described 
as follows : 



(• 



FILE(TAPE2, RT=S) 



The file can be renamed on the COPYXS statement; use a FILE statement to alter any 
other characteristics. 

Following the copy, both files are closed. 
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Z RECORD CONVERSIONS 



FO 


I 

BT 


FILE Statement 


Notes and Rules 


SQ 


Unblocked 
C 

K 

E 


FILE(lfn, RT=Z, FL=fl) 
FILEQfn, RT=Z, FL=fl, BT=C) 
FILE(lfn, RT=Z, FL=fl, BT=K) 
FILE(lfn, RT=Z, BT=E) 


1,2 

1,3,4,8 
1,5,6,8 
1,4,6,8 


WA 


Unblocked 


FILE(lfn, FO=WA, RT=Z, FL=fl)' 


1,7 



Notes and Rules 



1. 



2. 
3. 



5. 



Fixed length in characters (FL) is required. There is no default. On Z record 
input, the zero bytes and recovery control words are removed. The data is filled 
to FL characters with display code blanks. 

On Z record output, the record manager removes trailing blanks from the data until 
the record is full words of data with a 12 -bit zero-byte in the least significant 2 
characters of the last word. If FL consists of data with one or no trailing blanks 
the record manager adds a word of blanks to accommodate the zero byte. To avoid 
truncation, FL must be greater than or equal to the input MRL or FL. Truncation 
results in an informative message. Recovery control words are added on output if 
the output file is blocked. 

Unblocked sequential files are not supported by 6000 SCOPE 3.4. 

Z records with C blocking are a special case and can be redefined as S record 
type. The following delimiters are recognized on input. 



EOR 
EOS 
EOP 
EOI 



12 low-order bits of a word are zero. 

A short or zero-length block with a level through 16 48-bit appendage 

A zero-length block with a level 17 g 48-bit appendage 

A pair of tapemarks or a tapemark, EOF1 label and two tapemarks 



The following delimiters are generated on output. 



EOR 
EOS 

EOP 
EOI 



12 low-order bits of a word are zero 

A short or zero-length block with level to 16„ 
1 through 16 fi are not lost. 8 

A zero-length block with a level 11 48-bit appendage 
Two tapemarks 



bit appendage. Levels 



On blocked mass storage, these delimiters are maintained in the form of recovery 
control words. 

4. The maximum block length (MBL) is 5120 by default. It must be a multiple of 10 
characters (full words). 



BT=K is not required if REQUEST MT or STAGE is used. 

Default records per block (RB) is 1; if default MBL is RL x RB. Record length 
RB) is usually determined from FL. MBL must be a multiple of 10 characters 
(full words). 
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6. The following delimiters are recognized on input and recreated on output. 

EOR 12 low-order bits of a word are zero 

EOP A single tapemark 

EOI Input: Two tapemarks, or tapemark, EOF1 label and two tapemarks 

Output: Two tapemarks 

Section delimiters will be lost if they are on the input file. Partition delimiters on 
the input file are lost if the output file type does not support partitions (not W or not 
blocked sequential). 

On blocked mass storage, tapemarks are maintained in recovery control words. 

7. An attempt to convert /copy a WA file results in an informative message. 

8. On magnetic tape, Z records can be recorded in binary mode (odd parity) only. 

F RECORD CONVERSIONS 



FO 


BT 


FILE Statement 


Notes and Rules 


SQ 


Unblocked 
C 
K 

E 


FILE(lfn, RT=F, FL=fl) 
FILE(lfn,RT=F,FL=fl,BT=C) 
FILE(lfn, RT=F, FL=fl, BT=K) 
FILE(lfn, RT=F, FL=fl, BT=E) 


1,2,7 
1,3,5 
1,4,5 
1,3,5 


WA 


Unblocked 


FILE(lfn, FO=WA , RT=F, FL=fl) 


1,2,6 



Notes and Rules 

1. Fixed length in characters (FL=fl) is required. There is no default. For output, 

fl must be greater than or equal to input MRL or FL to avoid truncation. Truncation 
results in an informative message. When converting to F, if fl on output specifies 
a record longer than the input record (for example, a W record), the record is filled 
with blanks if CM=YES and with zeroes if CM=NO. 

F-type records can be converted to S-type records if fl is a multiple of 10 characters. 

2. This file type cannot be used with a STAGE or magnetic tape REQUEST statement. 
For SQ files, the file will become blocked (see K blocked file). For WA files, 
blocking is illegal. 

3. The default maximum block length (MBL) is 5120 characters. 

4. BT=K is not required if REQUEST MT or STAGE is used. Default records per block 
(RB) is 1; default maximum record length is 5120 characters. MBL=MRL x RB. 

5. The following delimiters are recognized on input and recreated on output. 

EOR fl characters read /written 

EOP Single tapemark 

EOI Input: Two tapemarks, or tapemark, EOF1 label and two tapemarks 

Output: Two tapemarks 
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Section delimiters will be lost if they are on the input file. Partition delimiters on 
the input file are lost if the output file type does not support partitions (not W or 
not blocked sequential). 

On blocked mass storage, tapemarks are maintained in recovery control words. 

6. An attempt to convert /copy a WA file results in an informative message. 

7. Unblocked sequential files are not supported by 6000 SCOPE 3.4. 

D RECORD CONVERSIONS 



FO 


BT 


FILE Statement 


Notes and Rules 


SQ 


Unblocked 
C 
K 
E 


FILE(lfn, RT=D, LL=m, LP=n) 
FILE(lfn, RT=D, LL=m, LP=n, BT=C) 
FILE(lfn, RT-D, LL=m, LP=n, BT=K) 
FILEQfn, RT=D, LL = m, LP=n, BT=E) 


1,6 
1,2,3 
1,2,4 
1,2,3 


WA 


Unblocked 


FILE(lfn,FO=WA,RT=D,LL=m,LP=n) 


1,5 



Notes and Rules 



1. 



2. 



The parameters specifying length of the decimal count field (LL) and position of the 
field (LP) are required. There are no defaults. The length field length (LL=m) 
can be 1 to 6 characters. This indirectly limits the size of records. If LL = 1, 
record length can be 1 to 9. If LL is 2, record length can be 1 to 99, etc., to a 
maximum of 999999 when LL is 6. The decimal count field contains the record 
length in display code decimal. 

LP + LL must be less than or equal to MRL (the buffer size). 

When reading D records, the record manager gets as many characters from the file 
as specified by the length field. When generating D records, the record manager 
writes the number of characters specified by the contents of the length field. 

The LP and LL parameters used to describe the position and size of the length 
field for the output file, actually describe the location and size of the decimal count 
field on the input file, regardless of the record type of the input file. 

If the input file is W records, conversion consists of removing the W control words. 
The input file is basically a D record type file over which the W record structure 
has been superimposed. If the input file is Z records, conversion consists of re- 
moving the zero bytes and padding the records to FL characters and writing out the 
number of characters indicated by LL. If the LL field specifies a record longer 
than the input record, the record is filled with whatever is in the buffer. 

If the LL field specifies a record shorter than the input record, truncation occurs 
accompanied by an informative message. 

The following delimiters are recognized on input and recreated on output. 

EOR (LL) characters read/written 

EOP Single tapemark 
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EOI Input: Two tapemarks, or a tapemark, EOF1 label, and two tapemarks 

Output: Two tapemarks 

On blocked mass storage, a tapemark is maintained in a recovery control word. 

Section delimiters are lost if they are on the input file. Partition delimiters on the 
input file are lost if the output file type does not support partitions (not W or not 
blocked sequential). 

3. Default maximum block length (MBL) is 5120 characters. 

4. BT=K is not required if REQUEST MT or STAGE is used. Default records per block 
(RB) is 1. Default MRL is 5120 characters. MBL = RB x MRL. 

5. An attempt to convert /copy a WA file results in an informative message. 

6. Unblocked sequential files are not supported by 6000 SCOPE 3.4. 

R RECORDS CONVERSIONS 



FO 


BT 


FILE Statement 


Notes and Rules 


SQ 


Unblocked 
C 
K 

E 


FILE(lfn, RT=R, RMK=char) 
FILE(lfn, RT=R, RMK=char, BT=C) 
FILE(lfn, RT=R, RMK=char, BT=K) 
FILE(lfn, RT=R, RMK=char, RT=E) 


1,6 
1,2,3 
1,2,4 
1,2,3 


WA 


Unblocked 


FILEdfn, FO=WA,RT=R,RMK=char) 


1,5 



Notes and Rules 

1. RMK is usually specified* If not specified, it defaults to 00 which is a display code 
colon. The conventional character is ] , specified in the form RMK=62B. The ] is 
the standard default for 6000/7000 COBOL and for 6000 record manager under SCOPE 

O A 
O . t. 

When the input file is R record type all the characters from the beginning of the 
record up to and including the record mark character comprise the record. MRL 
must be large enough to encompass the entire record or the message UT202 F/R/Z 
DATA TRUNCATED is issued. 

SCM buffer size is set to the larger MRL for the two files. 

When the output file is R record type, all the characters in the buffer up to and in- 
cluding the record mark character are written out. The record mark character must 
be in the input record. Truncation of the input record may occur. For example, 
when converting in the 71st character position, the R record output will consist of 
71- character records. 

2. The following delimiters are recognized on input and recreated on output. 

EOR Characters up to and including the record mark character are read /written 

EOP Single tapemark 
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EOI Input: Two tapemarks, or a tapemark, EOF1 label, and two tapemarks 

Output: Two tapemarks 

On blocked mass storage, a tapemark is maintained in a recovery control word. 

Section delimiters will be lost if they are on the input file. Partition delimiters on 
the input file are lost if the output file type does not support partitions (not W or 
not blocked sequential). 

3. Default maximum block length (MBL) is 5120 characters. 

4. BT=K is not required if REQUEST MT or STAGE is used. Default records per block 
(RB) is 1. Default MRL is 5120 characters. MBL=RB x MRL. 

5. An attempt to convert /copy a WA file results in an informative message. 

6. Unblocked sequential files are not supported by 6000 SCOPE 3.4. 

T RECORD CONVERSIONS 



FO 


BT 


FILE Statement 


Notes 


SQ 


Unblocked 
C 
K 

E 


FILE(lfn, RT=T, CP=cp, CL=cl, HL=hl, TL=tl) 
FILE(lfn, RT=T, CP=cp, CL=cl, HL=hl, TL=tl, BT=C) 
FILE(lfn, RT=T, CP=cp, CL = cl, HL=hl, TL=tl, BT=K) 
FILE(lfn, RT=T, CP=cp, CL=cl, HL=hl, TL=tl, BT=E) 


1,6 
1,2,3 
1,2,4 
1,2,3 


WA 


Unblocked 


FILEdfn, FO=WA, RT=T, CP=cp, CL=cl, HL=hl, TL=tl) 


1,5 



Notes and Rules 

1. CP, CL, HL, and TL are required. There are no defaults. The count position 
(CP), starting with 0, plus the count field length (CL) must be less than the header 
length in characters (HL). 

The count field contains the number of trailers in the record. The size of the re- 
cord is determined from the header length plus the contents of the count field times 
the trailer length. Thus, if conversion is to W record type, the count field must be 
in the first portion of the input record placed in the SCM buffer. 

When the output file is T record type, the CP, CL, HL, and TL parameters actually 
describe the count field, trailer length and header length on the input file, regardless 
of the record type of the input file. 

In other words, the input file is basically a T record type file over which some other 
record structure has been superimposed. For example, if the input file is W records, 
conversion consists of removing the W control words. If the input file is Z records, 
conversion consists of padding the records to FL characters, removing the zero bytes, 
and writing out the number of characters computed as the record size. If the com- 
puted size exceeds the input record size, the record is filled with whatever is in the 
buffer. If the computed size is less than the input record size, truncation occurs. 
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2. The following delimiters are recognized on input and recreated on output. 

EOR Header length character count plus n time the trailer length characters have 

been read /written. n is the number of trailers. 

EOP Single tapemark 

EOI Input: Two tapemarks, or a tapemark, EOF1 label, and two tapemarks 

Output: Two tapemarks 

On blocked mass storage, a tapemark is maintained in a recovery control word. 

Section delimiters will be lost if they are on the input file. Partition delimiters on 
the input file are lost if the output file type does not support partitions (not W or 
not blocked sequential). 

3. Default maximum block length (MBL) is 5120 characters. 

4. BT=K is not required if REQUEST MT or STAGE is used. Default records per block 
(RB) is 1. Default MRL is 5120 characters. MBL=RB x MRL 

5. An attempt to convert /copy a WA file results in an informative message. 

6. Unblocked sequential files are not supported by 6000 SCOPE 3.4. 

U RECORD CONVERSIONS 



FO 



SQ 



BT 



Unblocked 
K 



t'LL,t: statement 



FILE(lfn,RT=U,BT) 
FILEQfn, RT=U, BT=K) 



i\oies ana rimes 



Notes and Rules 

1. Unblocked sequential files are not supported by 6000 SCOPE 3.4. The BT parameter 
can be omitted if the file is already unblocked. Default MRL is 5120 characters. 

2. BT=K is not required if REQUEST MT or STAGE is used. Records per block must 
be 1. This is the default for RB. Default MBL is RB x MRL. Default MRL is 
5120 characters. The following delimiters are recognized on input and recreated on 
output. 

EOR Data between two interrecord gaps, that is, one block 

EOP Single tapemark 

EOI Input: Two tapemarks, or a tapemark, EOF1 label, and two tapemarks 

Output: Two tapemarks 

On blocked mass storage, a tapemark is maintained as a recovery control word. 

Section delimiters are lost if they are on the input file. Partition delimiters on the 
input file are lost if the output file type does not support partitions (not W or not 
blocked sequential). 
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CONVERSION EXAMPLES 

1. A very common application of COPY is to block or deblock W record files. This 
example illustrates a job that copies data on INPUT to a magnetic tape file (it per- 
forms a card-to-tape operation). Neither file requires a FILE statement because 
defaults apply. The only difference between file descriptions is that the input file 
is unblocked whereas the output file is I-blocked because of the STAGE statement. 
Remember, however, that the size of each W record depends on whether the cards 
in the deck are Hollerith, SCOPE binary, or free-form binary. 



J0S,CP7G. 

STAGE(01T,PCST) 

COPY(,CLT) 

7/S/9 in column one. 

(DM/5) 
6 Mil*} hi column one. 



2. 



Example 2 illustrates how to print from an external -coded, even-parity tape recorded 
one print line per block (Industry standard unblocked). Each print line is 136 char- 
acters; the first character of which is a printer control character. Tape density is 
556 bits per inch. The file format is also known as E mode for SCOPE 1. 1. 



CONTROL DATA 



joe,cp70, 

STAGE(CF) 

FILE(CF,RT=F,FL=i36,CM=YE3) 

COPY(CF,CUTFLT) 

6/7/8/9 in column one. 
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3. In this example, library USELIB is saved on staged magnetic tape and later loaded 
on-line, perhaps at another site. USELIB is an unblocked W format sequential file. 
The first job blocks an unblocked file. The process is reversed in the second job; 
the file must be unblocked before the loader can load from it. 



CONTROL DATA 



J0B1,CP7G. 



ATTACH<USELIE,TESTLIERARY,Pt» = F<FAC,IO = Xy> 

STAGE(SA\/E,FCST) 

CGPY(USELIE,SAVE) 

6/7/8/9 In columnone. 




60372600 A 



E-13 



4. 



This example illustrates an S to W conversion using COPYS. Each S record is a 
library routine. To be able to be used at all by LIBEDT, each routine must be con- 
verted to a section in W format. COMPARE cannot be used following this copy to 
show equivalence. J 











CONTROL DATA 












J0B,CP7Q. 

FILE(OLD,RT=S) 

STAGE(CLC) 

FILE(WSEC) 

COPYS(0LD,fcSEC,2i]) 

• 

• 

• 
6/7/8/9 In column one. 



5. 



In this example, the first X record on tape XTAPE contains coded punched card im- 
ages. Each image consists of full words of data terminated by a zero-byte in the 
low-order position of the last word. The data cannot be considered as Z records 
because section delimiters are in X-record format. Blocking type is C The iob 
copies XTAPE to DATA, which is in S-record format. DATA is then closed and 
rewound by the SKIPB statement and then redefined as Z records with C blocking 
The Z records are then copied to PUNCHB in unblocked W format. Each of the ' 
card images becomes a W record. 



CONTROL DATA 



J0B,CP7a. 
STAGE(XT) 
COPV(XT,CLDPL) 
UPDATE 



7/8/9 In column one> 

(UPDATE DIRECT^ 
6/7/8/9 in column onz 



1 



Stages fn X-mode 
tape. Do not use 
a FILE statement. 




Convert X to S 



] 




UPDATE reads OLDPL 
as S records not 
X records 
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6. Here, we have a job that converts a tape in X-record format to a file in S-record 
format. The X-record tape contains 1000 FORTRAN source card images terminated 
by zero-byte terminators. Thus, the file can be redefined as Z-type records with 
FL of 100 for use as input to FORTRAN. The SKIPB(CARDS, 262143) statement 
rewinds CARDS and closes it so that it can be redefined. 




J08,CP70. 
STAGE(X*CCE) _ 
FILE<XMCC£,RT=X,MRL=iaflOOO> 
FILE(CARDS,RT = S)-«— 
C0PY<XHCDE, CARDS) 
SKIPB(CAR0S,262m3) 
FILE(CARDS,RT=2,FL=l^iS 
FTN(I=CAR0S) 



Defines output 
block type is C 



) 



3 



S/7/S/9 In column one. 




Rewinds and closes 
| file CARDS 



) 



CARDS is read 
records 
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7. 



In this example, the second section on INPUT is a free-form binary deck that origi- 
nally consisted of 13 7- character print lines in the form of Z records. On input the 
deck has W control words inserted every 160 characters. The job shows how the W 
control words are removed through a W to U copy. Then, the U-type file is rede- 
fined as Z-type and copied to the OUTPUT file. 



W CONTROL 
WORD EVERY 
160 CHARACTERS 




Y//////////A 



A | OOOQ 



A 



'//;//////// 



A|0000 



V//////////S 



A 1 0000 



///////////} 



A|0000 



V/////////A 



ZERO BYTE 
EVERY 137 
CHARACTERS 




WTOU 



/ 



/ 



A 0000 



///////////} 



A| 0000 



FILE INPUT CONTAINS 
160 -CHARACTER 
W RECORDS 



A 1 0000 



A|0000 



A | 0000 



Z TO W 




FILE UZ CONTAINS 
5120-CHARACTER 
U RECORDS, OR MANY 
137- CHARACTER 
Z RECORDS 




UNUSED BITS 
OF LAST WORD 



FILE OUTPUT CONTAINS 
14-WORD W RECORDS 



CONTROL DATA 



J0fl,CP7G. 

FILE(UZ,RT=U) 

C0PY(INPLT,U2) 

FILE(UZ,RT=Z,FL=137) 

REWINC(UZ) 

COPYCUZ, OUTPUT) 

7/S/9 in column. ona 

(FREE FORK EINARY 
6/7/S/9 in column one 



CECK) 
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The user has a COBOL-generated file containing R records with E blocking. The 
record mark character is ] . He wishes to convert the file to C -blocked Z records 
for use as a SCOPE standard permanent file at the 6000 Station (blocking not shown). 
Each tapemark on input becomes a level 17 8 48 -bit appendage (EOP). 




RTOZ 









|]|AA|0000 




]|aaaaaaa 


0000 


fT 


AA 


aaaaaa|0000 








|]|aaaa 


0000 


fT 



-EOP- 



17 



a 



M 



|]iAAAAi0000 



oaaaaaan uuuu 



25 CHARACTERS 



\ 31 CHARACTERS 



- 50 CHARACTERS 



> 63 CHARACTERS 



I) 



20 CHARACTERS 



FILE RE 



FILE ZC 



1 



CONTROL DATA 



joe,cP7o. 

COEGL.- 

LGO. 

FILE(ZC,FT=Z,FL=80,ET=C^ 

C0PY(RE,2C) 

CATALOG(ZC,PFN,ST=CCP, 

7/S/9 -in column onz 

(COBOL SOURCE) 
6/7/S/9 b\ column one} 



Program generates 
file RE. No FILE 
statement required. 



f 




FILE statement re- 
quired for file ZC 



Transfers ZC to 
station as permanent 

m& 



Defines f I le RE as 
RT=R,RMK=62B, BT=E 
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9. This example illustrates use of a copy routine to convert T records to W records. 
The T records contain a trailer count in the eighth through tenth character positions 
of each record. This count field is not removed by the conversion. The input file 
is K blocked; the output file is unblocked. Blocking is not illustrated. 



250 
CHARACTERS 



150 
CHARACTERS 



1100 . 

CHARACTERS < 



20 



7 



T TO W 



7 



7 



350 
CHARACTERS 



100 
CHARACTERS 



7 




FILE TK 



FILE W 



CONTROL DATA 



J0e f CPJJL 

FILE(TK,RT = T,CP = 7,CL = 3,HL=it)0,TL=50,K6 = 5) 

STAGE(TK) 

CCPY<TK,WM ■ 




FILE statement 
Is required 



No FILE statement 
for output file W 




Job steps using 
fi le W 
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DEFAULT FILE DESCRIPTIONS 



The following table summarizes characteristics of files acceptable by SCOPE 2 and its 
product set. Except for LIBEDT libraries, the default file organization (FO) is sequen- 
tial (SQ). Any tape file is assumed to be unlabeled and in binary mode. The default 
file name (lfn) can be overridden. 



System Routine /Program lfn RT BT 



Redefinable with FILE Statement 



Loader 

Object module 
Core image module 

Utilities 

COPY, COPYS, 

COPYP, etc. 
Input file 
Output file 

COPYSP 

Input file 
Output file 

COPYXS 

Input file 
Output file 

COMPARE 
File one 
File two 
List file 

DMPFILE 

Input file 
List file 



SKIPF, SKIPB, 
and BKSP 



FORTRAN compilers 
Source input file 



List output file 
Object binary file 



W 
W 



unbl 
unbl 



No 
No 



INPUT W unbl Yes; see Appendix E 

OUTPUT W unbl Yes; see Appendix E 

INPUT W unbl Yes 

OUTPUT W unbl Cannot be printed under SCOPE 2 if 

redefined 

TAPE1 U K No 

TAPE2 S C No 



OLDLIB W unbl Yes 
NEWLIB W unbl Yes 

OUTPUT W unbl Cannot be printed under SCOPE 2 if 

redefined 



INFILE W unbl 
OUTPUT W unbl 



FILE 



INPUT 



Yes 

Cannot be printed under SCOPE 2 if 

redefined 

W unbl Yes; record type can be F, R, or Z with 
C blocking, or any other record type if 
BT=K, RB = 1 



W unbl Yes; record type can be Z or F is 

FL<90; otherwise, warning message is 
issued 

Cannot be printed under SCOPE 2 if 
redefined 

LGO W unbl Cannot be printed under SCOPE 2 if 

redefined 



OUTPUT W unbl 



60372600 A 



F-l 



System Routine /Program lfn 



RT 



BT 



Redefinable with FILE Statement 



COBOL compiler 
Source input 

List output 

Object binary 

COMPASS assembler 
Source input 



INPUT 



W unbl 



OUTPUT W unbl 



LGO 



W unbl 



INPUT W unbl 



Compile file 


COMPILE 


W 


unbl 


List output 


OUTPUT 


w 


unbl 


Object binary 


LGO 


w 


unbl 


UPDATE program 
Old library 
New library 


OLD PL 

NEW PL 


w 
w 


unbl 
unbl 


Compile file 


COMPILE 


w 


unbl 


Source input 


INPUT 


w 


unbl 


List output 


OUTPUT 


w 


unbl 


LIBEDT 

Directives input 


INPUT 


w 


unbl 


List output 


OUTPUT 


w 


unbl 


Libraries 





w 


unbl 


Sequential files 





w 


unbl 


TRAP 

Directives input 


INPUT 


w 


unbl 


List output 


OUTPUT 


w 


unbl 


SEGLOAD 

Directives input 


INPUT 


w 


unbl 


Loader input 





w 


unbl 


Segment output 


ABS 


w 


unbl 



Yes; any block type is acceptable; record 
type can be F or Z or can be U if RB = 1 

Cannot be printed under SCOPE 2 if 
redefined 

Cannot be loaded under SCOPE 2 if 
redefined 



Yes; can be blocked. Record type can 
be Z (coded with FL<100) or can be S 
(binary) 

Yes; can be I-blocked with W record type. 
Record type can be Z (coded with FL<100) 
or S (binary) — 

Cannot be printed under SCOPE 2 if 
redefined 

Cannot be loaded under SCOPE 2 if 
redefined 



Yes; blocked or RT=S 
Yes; blocked or RT=S 

Yes; RT=S if compressed 

Yes; can be blocked; record type can be 
RT=Z, FL<100. 

Cannot be printed under SCOPE 2 if 
redefined 



Must be W but can be blocked 

Cannot be printed under SCOPE 2 if 
redefined 

Not recommended 

Yes; can be blocked or RT=S 



Yes; can be RT=Z or F, FL<100 

Cannot be printed under SCOPE 2 if 
redefined 



Yes; can be RT=Z or F, FL<100 

Cannot be loaded by SEGLOAD if redefined 

Cannot be loaded by SEGRES if redefined 



tWord addressable file organization 
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GLOSSARY 



ABORT 



ABSOLUTE ADDRESS 



ABSOLUTE INFORMATION 



ADDRESS 



ALLOCATE 



ALLOCATION UNIT 



ASSEMBLE 



ASSIGN 



ATTACH 



AUDIT 



To terminate a program or job when a condition (hard- 
ware or software) exists from which the program or 
computer cannot recover, 

1. An address that is permanently assigned by the 
machine designer to a storage location. 

2. A pattern of characters that identifies a unique 
storage location without further modification. Synon- 
ymous with machine address. 

Optionally included as a block in an object module, this 
information must be stored at a specific origin in the 
field length. Generally, it is used to store information 
in the job communication area from RA(S) + 77g. It is 
not acceptable for segment or overlay loading. 

1. An identification, as represented by a name, label, 
or number, for a register, location in storage, or 
any other data source or destination such as the 
location of a station in a communication network. 

2. Any part of an instruction that specifies the location 
of an operand for the instruction. 

To reserve an amount of some resource in a computing 
system for a specific purpose (usually refers to a data 
storage medium). 

The smallest amount of storage space (for example, 5 
sectors of mass storage) that can be assigned upon 
request. 

To prepare an object language program from a symbolic 
language program by substituting machine operation codes 
for symbolic operation codes and absolute or relocatable 
addresses for symbolic addresses. 

To reserve a part of a computing system for a specific 
purpose (usually refers to an active part such as an I/O 
device or a computation module). 

Allows a job to gain access to a permanent file. The 
type of access can be controlled by requiring passwords, 
if desired, before the file can be read and /or written. 

A listing of non-private type permanent file information 
(obtained from permanent file catalog entries) which 
can be used for accounting or historical purposes. 
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Glossary- 1 



BASE ADDRESS 



BLANK COMMON BLOCK 



BLOCK 



BUFFER 



CARD IMAGE 

CATALOG (Noun) 

CHANNEL 
CHARACTER 

CODE 

COMMON BLOCK 



CORE IMAGE 



A given address from which an absolute address is de- 
rived by combination with a relative address. 

A common block into which data cannot be stored at 
load time. The first declaration need not be the largest. 
In basic loading and segmented loading, but not in overlay 
loading, the blank common is allocated after all object 
modules have been processed. For overlay loading, allo- 
cation of blank common is more complex. 

A group of contiguous characters recorded on and read 
from magnetic tape as a unit. Blocks are separated by 
record gaps. A block and a physical record are synon- 
ymous. 

A storage device used to compensate for a difference in 
rate of flow of data, or time of occurrence of events, 
when transmitting data from one device to another. It 
is normally a block of memory used by the system to 
transmit data from one place to another. Buffers are 
usually associated with the I/O system. 

A one-to-one representation of the contents of a punched 
card, for example, a matrix in which a 1 represents a 
punch and a represents the absence of a punch. 

A list or table of items with descriptive data, usually 
arranged so that a specific kind of information can be 
readily located. (Example: the Permanent File Catalog.) 



A path along which signals can be sent, 
channel, output channel. ) 



(Example: data 



A logical unit composed of bits. Internally, SCOPE 2 
uses 6-bit display code characters. 8-bit characters 
on 9-track magnetic tapes are converted to and from 
6-bit characters. 



1. 



A system of characters and rules for representing 
information in a form understandable by a computer, 



2. Translation of a problem into a computer language. 

A block that can be declared by more than one object 
module. More than one module can specify data for a 
common block, but if a conflict occurs, information is 
loaded over previously loaded information. A module 
may declare no common blocks or as many as 509 com- 
mon blocks. The two types of common blocks are labeled 
common and blank common. 

Also referred to as the loaded program or an absolute 
program. This is the final image produced by the load 
operation. For control-statement-initiated load, the core 
image is the entire job field length from RA(S) + 100 p 
through RA(S) + field length -1. In addition, it may 8 
include the ECS/LCM field image. 
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CORE IMAGE MODULE 



CYCLE 



DATA 



DAYFILE 

DEADSTART 

DEBUG 

DIAGNOSTIC 



For a user-call-initiated load operation the core image 
occupies only that portion of the field length specified 
by the user as being available. 

The core image module is loader tables consisting of 
the core image. It can be saved on a file for subse- 
quent reloading and execution. 

One of up to five separate and distinct files under a 
permanent file name. Each cycle is identified by the 
permanent file name and a cycle number. 

1. Information manipulated by or produced by a computer 
program. 

2. Empirical numerical values and numerical constants 
used in arithmetic calculations. Under SCOPE, data 
is considered to be that which is transformed by a 
process to produce the evidence of work. Para- 
meters, device input, and working storage are con- 
sidered data. In the CPU, the exchange jump pack- 
age is considered data. 

A short history of a job, that includes a list of control 
statements, comments, and messages. 

That process by which an inactive machine is brought 
up to an operational condition ready to process jobs. 

To detect, locate, and remove mistakes from a routine 
or malfunctions from a computer. Synonymous with 
troubleshoot. 

1. Pertaining to the detection and isolation of a mal- 
function or a mistake. 

2. A message printed when an assembler or compiler 
detects a nrofram error. 



DISPOSITION CODE 



END-OF-INFORMATION 
DELIMITER 



END-OF- PARTITION 
DELIMITER 



A code used in I/O processing to indicate the disposition 
to be made of a file when its corresponding job is ter- 
minated or the file is closed (for example, print, punch 
Hollerith, punch binary). 

1. A card with a 6/7/8/9 punch in column 1. 

2. End-of-information of job file. 

1. A card with a 7/8/9 punch in column 1 and a level 
17 Hollerith punch in columns 2 and 3. 

o 
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END-OF-SECTION 
DELIMITER 



ENTRY POINT 



2. AW format flag record (zero length, flag bit set). 

3. A tapemark or equivalent RCW for a blocked file 
with record type other than W, X, S, or Z with 
C blocking. 

4. A level 17 g 48-bit appendage on a C blocked file 
with record type S or Z. 

1. A card with a 7/8/9 punch in column 1 and (option- 
ally) level to 16o in columns 2 and 3. 

2. A W-format flag record on a file (zero length, flag 
and delete bit set). 

3. A level to 16~ 48-bit appendage in a Z record C 
blocked file. 

A location within a block that can be referenced from 
object modules that do not declare the block. Each 
entry point has a unique name associated with it. The 
loader is given a list of entry points in a loader table. 
A block can contain any number of entry points. 

The loader accepts an entry point name that is 1 to 7 
characters; colons are illegal. 

Some language processors may produce entry point names 
under more restricted formats due to their own require- 
ments. 



EXCHANGE JUMP 



EXTERNAL REFERENCE 



Execution of a CPU program is initiated by an exchange 
jump. The particular program is defined by the contents 
of the exchange package area before the exchange jump 
took place. In order for the program to execute, the 
proper contents of its operational registers must be 
loaded into the CPU. These contents are what is con- 
tained in the exchange package area associated with the 
program in question. 

A reference in one object module to an entry point in 
a block not declared by that module. Throughout the 
loading process, externals are matched to entry points 
(this is also referred to as satisfying externals); that is, 
addresses referencing externals are supplied with the 
correct address. In some cases, for SCOPE 3.4, this 
process is inhibited (for example, OMIT request); the 
external reference then remains unsatisfied. 



FILE 



A logically connected set of information. It is the largest 
collection of information that may be addressed by the 
name. Each FILE has a logical file name and reference 
to it must be by name. A file has a beginning called 
the beginning-of-information, before which no data exists, 
and an end-of-information, after which no data exists. 
Tape labels are not considered part of file data. 
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FILEMARK 

GLOBAL LIBRARY SET 

INPUT FILE 



JOB 



JOB CONTROL FILE 



JOB CONTROL STATEMENT 



JOB DAYFILE 



JOB DECK 



Refer to tapemark. 

A library set to be used for all subsequent loads in your 
job until you give the loader further notice. 

After the job has entered the system and has become a 
candidate for processing, the second through last sections 
are separated from the first section and become the 
INPUT file. This file contains the programs /data refer- 
enced by various job steps. The user can manipulate the 
INPUT file just like any other file (excluding write oper- 
ations). 

1. An arbitrarily defined parcel of work submitted to 
a computing system. 

2. A collection of tasks submitted to the system and 
treated by system as an entity. A job is presented 
to the system as a formatted file. With respect to 

a job, the system is parametrically controlled by the 
data content of a job file. 

After the job has entered the system and has become a 
candidate for execution, the job control statement section 
is made into a separate file called the job control file 
(also known as control statement file). The user cannot 
manipulate his job control file. 

Any of the statements used to direct the operating system 
in its functioning, as compared to data, programs, or 
other information needed to process a job but not intended 
directly for the operating system itself. A control state- 
ment may be expressed in card, card image, or user 
terminal keyboard entry medium. 

During the execution of the job, a special log or dayfile 
is maintained. At job termination, the job dayfile is 
appended to the OUTPUT file of the job. The job dayfile 
serves as a time uruereu j- cuui (_i UJ. me a^-uvioi^o ^ -x^ 
job- -all control statements executed by the job, significant 
information such as file assignment or file disposition, 
all operator interactions with a job, and errors are re- 
corded in this file. 

The physical representation of a job, before execution, 
either as a deck of cards or as a file of W-format re- 
cords. The first section of the job file begins with a 
job statement and contains the job control statement which 
will be used to control the job. Following sections con- 
tain the programs and data which the job will require for 
the various job control statements. The job deck is ter- 
minated by an end-of-information delimiter. 
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LABEL (Standard) 



LABELED COMMON 



LIBRARY FILE 



LIBRARY SETS 



LOAD COMPLETION 



LOADER TABLES 



LOADING 



An 80-character block at the beginning or end of a 
magnetic tape volume or file, which serves to identify 
and/or delimit that volume or file. The record manager 
supports the following ANSI standard labels: 

1. VOL1 

2. HDR1 

3. EOV1 

4. EOF1 

A common block into which data can be stored at load 
time. Depending on the type of source statement (FOR- 
TRAN, COMPASS, etc. ), a labeled common block may 
specify CM/SCM or ECS/LCM for storage. Upon en- 
countering the first declaration of a labeled common 
block, the loader allocates the amount of memory re- 
quired of the type specified. A later declaration of the 
same block should not be larger than the initial declara- 
tion. If it is, a non-fatal error occurs and the original 
declaration holds. 

A mass storage file composed of a directory and a set 
of sequentially organized partitions. Both system and 
user library files have the same structure and are 
created in the same way. This file organization manages 
the directory for the user and allows the user to position 
to the start of a partition and to subsequently retrieve 
the records contained in the partition. 

A list of libraries to be searched for entry-point names 
and for satisfying externals. It can consist of both sys- 
tem and user libraries. NUCLEUS is excluded. 

Actions taken by the loader after all requests have been 
performed. The last action normally taken is to start 
execution of the loaded program. Only a certain type of 
request can be the last request processed before the load 
is completed. All other requests, when processed, cause 
the loader to seek the next request to be processed. 

The form in which object code and loader object direc- 
tives are presented to the loader. Loader tables are 
generated by compilers and assemblers according to 
loader requirements. The tables contain information 
required for loading such as type of code, names, types 
and lengths of storage blocks, data to be stored, etc. 

A sequence of tables is sometimes referred to as an ob- 
ject module. 

The placement of instructions and data into core so that 
it is for execution. Loader input is obtained from one 
or more local files and/or libraries. Upon completion 
of loading, execution of the program in the job's field 
length is optionally initiated. 
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LOCAL FILE 



LOCAL LIBRARY SET 



NUCLEUS LIBRARY 



OBJECT MODULE 



ON-LINE TAPE 



Loading also involves performance of load-related ser- 
vices such as generation of a load map, presetting of 
unused core to a user-specified value and generation of 
overlays or segments. A load that does not generate 
overlays or segments is referred to as a basic load. 

A file associated with a particular job on a temporary 
basis (not a permanent file). 

A library set to be used for a single load sequence in 
addition to the global library set. 

The library that contains most of the operating and pro- 
duct set members as core image modules. It contains 
no object modules and cannot be searched for externals. 

Often referred to as a relocatable subprogram, this is 
the basic program unit produced by a compiler or assem- 
bler. COMPASS normally produces an object module 
from source statements delineated by IDENT and END. 
In FORTRAN, the corresponding beginning statements 
are PROGRAM, SUBROUTINE, BLOCK DATA, or FUNC- 
TION. The corresponding end statement is END. 

An object module consists of several loader tables that 
define blocks, their contents, and address relocation 
information. 

A magnetic tape unit from which a file is accessed 
directly without first being copied to mass storage. The 
concepts of staging tapes and on-line tapes are mutually 
exclusive, as are the configurations they represent. That 
is, under SCOPE 2, the stations do not read/write tape 
directly and the on-line tapes are not staged. 



OPERATING SYSTEM 



OUTPUT FILE 



OVERLAYING 



1. The executive, monitor, utility, and any other rou- 
tines necessary for the performance of a computer 
system . 

2. A resident executive program (an executive routine 
in internal storage which has a language of its own 
and automates certain aspects of machine operation). 

This file contains the list output from compilers and 
assemblers unless the user designates some other file. 
At job end, the dayfile is added to the OUTPUT file and 
the file is sent to a station for printing. 

A technique for bringing routines into high-speed storage 
from some other form of storage during processing, so 
that several routines will occupy the same storage loca- 
tions at different times. Overlaying is used when the 
total storage requirements for instructions exceed the 
available main storage. 
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PARTITION 



PARTIAL STAGING 



PERMANENT FILE 



PHYSICAL RECORD 
PROGRAM 



This is a group of sections which is terminated by a 
special record or condition. The terminator is different 
for different types of records. 

W type records Undeleted W flag 

S type records and Z Level 17 R 

record with C blocking 

Other types Tapemark or recovery control 

word (indicating tapemark) 

A technique permitted only for unlabeled tapes. It allows 
the user job to stage some blocks while bypassing others. 

A file known to the operating system as being permanent 
(the file will survive deadstarts). Permanent files may 
be: 

1. Created by a job (by cataloging a local file) 

2. Attached by a job for its own use 

3. Detached by the job (returned to the operating system) 
when finished 

Permanent files may have certain restrictions for their 
access such as: 

1. Access only with a special keyword identifier 

2. Read only access 

Refer to block. 

1. A sequence of coded instructions that solves a prob- 
lem. 



PROGRAM BLOCK 



PROGRAM NAME 



PURGE 



2. To plan the procedures for solving a problem. This 
may involve, analyzing the problem, preparing a flow 
diagram, providing details, developing and testing 
subroutines, allocating storage, specifying I/O for- 
mats, and incorporating a computer run into a com- 
plete data processing system. 

The block within an object module that usually contains 
executable code. It is automatically declared for each 
object module (though it may be zero-length). It is local 
to the module; that is, it can be accessed from other mo- 
dules only through use of external symbols. Data placed 
in a program block always comes from its own object 
module. 

Also referred to as ident name or deck name, it is the 
name contained in the loader PRFX table at the beginning 
of each module. A program name is 1 to 7 characters; 
colons are illegal. 

To delete a permanent file from the system. This enables 
releasing its mass storage space, erasing its catalog en- 
tries, etc. 
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RECORD 

REEL 

REFERENCE ADDRESS 

RELOCATE 



REQUEST 



RESOURCE 



xtili vv J 



SECTION 



SEQUENTIAL FILE 



SOFTWARE 



SPOOLING 



A group of contiguous words or characters related to 
each other by virtue of convention. A record may be 
fixed or variable length. Record and logical record are 
synonymous. 

Refer to volume. 

The starting absolute address of the field length assigned 
to the user's job. 

In programming, to move a routine from one portion of 
internal storage to another and to adjust the necessary 
address references so that the routine, in its new loca- 
tion, can be executed. 

Instruction addresses are modified relative to a fixed 
point or origin. If the instruction is modified using an 
address below the reference point, relocation is negative. 
If addresses are above the reference point, relocation is 
positive. Generally, a program is loaded using positive 
relocation. 

To specify the need for a system resource such as an 
on-line magnetic tape unit. 

An element that can be temporarily assigned upon request. 

To return a ta^e or disk to its beginning. 

A group of records that is terminated by a special re- 
cord or condition. Generally it is greater than a record 
but less than a partition. Terminators are: 



W type records 

Z record with C 
blocking 

S record 
Other types 



Deleted W flag 
Level to 16g 

None (except for COPYS which 
considers each record a section) 

None 



A collection of records that are placed in physical rather 
than logical order. Given the location of one record, 
the location of the next can be determined by the physical 
position of the previous record. A tape file, punch card 
file, printer file, etc. , are all classified as sequential. 

The collection of programs and routines associated with 
a computer system; for example, compilers, library 
routines. 

A system-controlled process by which I/O to and from a 
unit record device is handled on a lower priority basis 
for overall system efficiency. 
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STAGED TAPE 



SYSTEM LIBRARY 



SYSTEM TABLES 



TABLE 



TAPEMARK 



TIME SLICE 



UNIT RECORD DEVICE 



UNLOAD 



UNSATISFIED EXTERNAL 



VOLUME 



WORD 



WORD ADDRESSABLE FILE 



A file from which a volume is copied from magnetic 
tape unit at a station to the system mass storage or 
vice versa. The user accesses the file from the system 
mass storage copy when needed. 

That file or group of files containing the core image sys- 
tem overlays and the system relocatable code available 
to all users on a read-only basis. The system library 
may include code generated and inserted by the user. 

Tables used by the operating system and which lie out- 
side of the user's field length. 

A collection of data, each item being uniquely identified 
either by some label or by its relative position. 

A special hardware bit configuration recorded on magnetic 
tape. It indicates the boundary between files and labels. 
It is sometimes called a file mark. 

The maximum amount of time during which the CPU can 
be executing a job without a re-evaluation at to which 
job should have the CPU next. 

A device such as a card reader, line printer or card 
punch. 

To remove a tape from ready status by rewinding beyond 
the load point. The tape is then no longer under control 
of the computer. 

An external reference for which the loader has not yet 
loaded a module containing the matching entry point. 

A physical unit of storage media. The term volume is 
synonymous with reel of magnetic tape. 

A group of bits (or 6-bit characters) between boundaries 
imposed by the computer. Word size must be considered 
in the implementation of logical divisions such as char- 
acters. In this publication, a word is assumed to be 
60 bits. 

A mass storage file that may be considered by the user 
as continuously non-blocked data. Data is written to /re- 
trieved from the file by specification of a relative word 
address on the file. The data on the file may be unstruc- 
tured (U record format) or structured (any other record 
format except S). 
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A parameter 

REQUEST 7-3 

STAGE 7-3 
Absolute modules 1-5; 3-10 
Access methods 5-26 
Accessibility label field C-4, 6, 7 
ACCOUNT statement 

See SCOPE Reference Manual 
Accounting information 

Control 12-21 

Dayfile 1-15 
ALTER statement 8-10 
Assembly 3-1 
ATTACH statement 

SCOPE 2 8-2 

SCOPE 3.x 8-14 
Automatic core allocation 4-1 



Banner page 9-Ij. 
Bad data 

Accept 5-27 
Display 5-29 
Drop 5-28 
Binary, free-form 9-8,20 
Binary, SCOPE 9-7,19 
Binary machine language program 3-10 
BLOCK CONTAINS Clause 5-9 
Blocking 

C-type 5-14 

Character count 5-14. 

Default on magnetic tape 5-14 

Exact 5-14 

E-type 5-14 

I-type 5-14 

Internal 5-14 

K-type 5-14 

Maximum block size 5-17,18 

Records per block 5-17 

Rules 5-18 

Unblocked 5-12 
BT parameter on FILE statement 

Blocked 5-14 

Unblocked 5-12 



C parameter on LABEL 
Cards, punched 9-1,18 
CATALOG 

Initial 8-2 
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Subsequent 8-9 
SCOPE 2.0 8-2 
SCOPE 3.x 8-14 
C parameter on LABEL 11-3,6 
Cards, punched 9-1, 18 
Central processor unit (CPU) 1-2 
CF parameter on FILE statement 10-12 
Character sets 

ASCII A-l; 6-6; 9-3 
Display code A-l 
EBCDIC A-l; 6-6; 11-8 
Labels 11-8 
Magnetic tape 6-6 
Punched card 9-3 
Printer 9-10 
CL parameter on FILE statement 5-6; 

D-13; E-10 
Clock time on dayfile 1- 14 
CM parameter on FILE statement 
Labels 11-8 
Magnetic tape data 6-6 
CM parameter on job statement 
General description 2-3 
User control of SCM 4-3 
CN control password/permission 
ATTACH 8-9 
Initial CATALOG 8-8 
Later CATALOG 8-9 
COBOL compiler 

Block types 5-17 
File description entries 5-9, 17 
Introduction 1-7 
Object- time file names 1-19 
Record Types 5-9 
Statement 3-1 
Coded mode on magnetic tape 

CM parameter 6-6; 11-8 
Comma as separator 2-6 
COMMENT statement 4-9 
Comments 

After terminator 2-7; 4-9 
COMMENT statement 4-9 
Dayfile 1-14 
To operator 4-10 
PAUSE statement 4-10 
VSN statement 

See SCOPE 2 Reference Manual 
Configuration 

Hardware 1-2 
Software 1-5 
Continuation of statement 2-7 
COMPARE statement 10-12 
COMPASS assembler 
Introduction 1-6 
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Statement 3-1 
Compilation 3- 1 
Computation section 1-2 
Computer System 
7600 1-2 

CDC CYBER 70/Model 76 1-2 
Control password/permission 8-8 
Control statements 

ACCOUNT (see SCOPE 2 Reference 

Manual) 
ALTER 8-10 
ANALYZE (see SCOPE 2 Reference 

Manual) 
ATTACH 8-6, 14 

AUDIT (see SCOPE 2 Reference Manual) 
BKSP 10-10,11,12 
CATALOG 8-2,9,14 
COBOL 3-1 
COMMENT 4-9 
COMPARE 10-12 
COMPASS 3-1 
CONTENT (see SCOPE 2 Reference 

Manual) 
COPY 10-2 
COPYBCD (see SCOPE 2 Reference 

Manual) 
COPYBF 10-4 
COPYBR 10-3 
COPYCF 10-4 
COPYCR 10-3 
COPYL (see SCOPE 2 Reference 

Manual) 
COPYLB (see SCOPE 2 Reference 

Manual) 
COPYLM (see SCOPE 2 Reference 

Manual) 
COPYP 10-4 
COPYR 10-3 
COPYS 10-3 
COPYSBF 9-13 
COPYSP 9-13 
COPYXS E-5 
DISPOSE 9-14,20 
DMP 12-10 
DMPECS 12-12 
DMPFILE 12-17 
DMPL 12-12 
DUMPF (see SCOPE 2 Reference 

Manual) 
Entry point name 3-9 
EXECUTE 3-12 
EXIT 12-1 
EXTEND 8-10 
FILE 5-1 
File name call 3-8 
FTN 3-1 
INPUT 3-7 



Job identification 2-1 

Keyword 3-8 

LABEL 11-2 

LDSET 3-17, 21; 4-8, 15; 12-8, 17 

LGO 3-4 

LIBEDT (see SCOPE 2 Reference Manual) 

LIB LOAD 3-22 

LIBRARY 3-20 

LIMIT 7-11 

Listed in dayfile 1-14 

LOAD 3-12,23 

Loader 3-8 

LOADPF (see SCOPE 2 Reference 
Manual) 

MAP 12-14 

MODE 12-6 

Name call 3-7 

NOGO 3-13 

On dayfile 1-14 

PASSWRD (see SCOPE 2 Reference 
Manual) 

PAUSE 4-10 

Processing 3-15 

PURGE 8-12 

REDUCE 4-6 

REQUEST 6-13; 7-2 

RETURN 6-17; 7-10 

REWIND 10-11 

RFL 4-5,6 

RTRVSIF (see SCOPE 2 Reference 
Manual) 

RUN 3-1 

Section in job deck 2-6 

SKIPB 10-10,11,12 

SKIPF 10-7,8,9 

SLOAD 3-16,23 

SORTMRG (see SORT/ MERGE 
Reference Manual) 

STAGE 6-1 

SUMMARY 12-21 

SWITCH 4-11 

SYNTAX 2-6 

TRANSF 4-13 

TRAP (see LOADER Reference Manual) 

UNLOAD 6-17; 7-10 
UPDATE (see UPDATE Reference 
Manual) 

VSN (see SCOPE 2 Reference Manual) 
COPY statement 10-2 
COPYBF statement 10-4 
COPYBR statement 10-3 
COPYCF statement 10-4 
COPYCR statement 10-3 
COPYP statement 10-4 
COPYR statement 10-3 
COPYS statement 10-3 
COPYSBF statement 9-13 
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COPYSP statement 9-13 
Copying labeled tapes 11-6 
COPYXS statement E-5 
Core image module 

Introduction 1-5 

Loading 3-10 

NOGO generation 3-14 

NUCLEUS library 3-19 
Core memory 

Allocation 2-3; 4-1 

Instruction stack 1-2 

LCM 1-2; 4-6 

Presetting of 4-8 

Size 1-2 

SCM 1-2; 4-3 

Types 1-2 
Core memory allocation 4- 1 
CP parameter on job statement 2-3, 4 
CP parameter on FILE statement 5-6; 

D-13; E-10 
CPU 1-2 
CPU time 

Dayfile 1-14 

Total for job 1-16 
Creation date, label 11-3,6 
CYBER 70/Model 76 1-2 
Cycle number 8-1 
CY oarameter 8-4 



D record type 5-6; D-9; E-8 

D parameter on job statement 2-3; 4-6 

Date, label creation 11-3,6 

Date, label expiration 11-3,6 

Date on dayfile 1-14 

Dayfile 1-14 

Decimal count records 5-6; D-9' E-8 

Dependency count 4-12 

Directive 2-8 

Disk storage subsystem 1-4 

DISPOSE statement 

Delayed 9-14 

Forms control 9-14, 21 

Placement 9-14, 20 

Printer codes 9-14 

Punch codes 9-20 

Station identification 9-15 

Use 9-14, 20 
DMP statement 

Placement in load sequence 3-14 

Use 12-10 
DMPECS statement 12-12 
DMPFILE statement 12-17 
DMPL statement 12-12 
Dollar sign for literals 2-7 
Double EOS 3-10 
Dynamic field assignment 4-1 



E parameter on LABEL 11-3, 4 
E parameter on REQUEST 11 
EB parameter 

REQUEST 6-6, 14 

STAGE 6-6 
EC parameter 

Introduction 2-3 

User control of LCM 4-6 
EO parameter on FILE statement 5-27 
End- of- file label C-6 
End- of- file label group C-l 
End- of- file 

See end of partition 
End- of- information 2-9 
End- of- partition 

Blocked files 5-19 

Card 2-9 

End load 3-10 

S records 5-19 

Z records, C blocked 5-19 

W records 5-19 
End- of- record card (see end- of- section) 
End- of- section 

Card 2-8 

Double to end load 3-10 

W records 5-21 

Z records, C blocked 5-21 
End- of- volume label C-7 
End- of- volume label group C-l 
Entry point name call 3-9 
Entry point search 3-19 
EO parameter on FILE 5-27 
EOF 

See end- of- partition 
EOFI label C-6 
EOI 

See end- of- information 
EOP 

See end- of- partition 
EOR 

See record type 
EOS 

See end- of- section 
EOVI label C-7 
Equal sign as separator 2-6 
ERR loader option 3-17; 12-8 
EX Extend password/permission 

ATTACH 8-9 

Initial CATALOG 8-5 

EXECUTE statement 3-12 
Execution 

Explicit call 3-12 

Load and execute 3-4 

Inhibited 3-13 
Execution time limit 2-4 

Limit 2-4 

Used 1-16 
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EXIT statement 12-1 
Expiration date, label 11- 
EXTEND statement 8-10 
Externals, search for 3-1 



3,6 



F record type 5-5; D-8; E-7 
Fabricated job name 

Banner page 9-11 

Lace card 9-18 

Formation 2- 1 
Features of SCOPE 2 1-1 
Features, undescribed v 
File 

See logical file 
File definition 5-1 
File header label C-5 
File identifier field 11-3,4 
File information table 5-1 
File name 1-16; 5-1,2 
File name substitution 

FORTRAN PROGRAM statement 1-17; 
3-6 

Load- and- go statement 3-6 
File section number field 11-3,4 
File sequence number field 11-3,4 
FILE statement 

BT parameter 5-14,17 

CF parameter 10-12 

CL parameter 5-6; D-13; E-10 

CM parameter 6-6; 11-8 

CP parameter 5-6; D-13; E-10 

EO parameter 5-27 

FL parameter 5-5, 12; D-5, 8; E-l, 6, 7 

FO parameter 5-26 

HL parameter 5-6; D- 13; E- 10 

LL parameter 5-6; D-9; E-8 

Logical file name 5-2 

LP parameter 5-6; D-9; E-8 

MBL parameter 5-17 

MNR parameter 5-6; 10-6; D-ll 

MRL parameter 5-12; E- 1 

OF parameter 10-12 

PD parameter 5-27 

Placement 5- 1 

RB parameter 5-17 

RMK parameter 5-6; D-ll; E-9 

RT parameter 5-3; D-l 

SPR parameter 6-16 

TL parameter 5-6; D-13; E-10 
FIT 5-1 

First level PPU 1-4 
Fixed length records 5-5 
FL parameter on FILE statement 

F record type 5-5; D-8; E-7 

Related to MRL 5-12; E-l 

Z record type 5-5; D-5; E-6 
FLPP 1-4 
FO parameter on FILE statement 5-26 



FORTRAN compiler 

Equating file names 1-17; 3-6 

Introduction 1-7 

Object-time file names 1-17 

Statement 3-1 
Functional units 1-2 



G parameter on LABEL 11-3,4 
Generation number 11-3,4 
Generation version 11-3,4 
Global library set 3-20 
Guide, purpose of iii 



Hardware configuration 1-2 
HDRI label C-5 
HI parameter 

REQUEST 6-4, 14 

STAGE 6-4 
HL parameter on FILE statement 5-6; 

D-13; E-10 
HY parameter 

REQUEST 6-4, 14 

STAGE 6-4 



ID parameter for permanent file 8- 1 
INPUT file 

ASCII coded 9-4 

Free from binary cards on 9-8 

Hollerith coded 9-4 

Introduction 1-12,16 

Load from 3-7 

Punched card format 9-3 

Positioning 9-3; 10-11 

Rewind 3-7 

SCOPE binary cards on 9-7 

Source statements on 3-3 

Unblocked required 9- 1 

W records required 9- 1 
INPUT statement 3-7 
Input /output multiplexer 1-4 
Instruction stack 1-1 



Job 

Dayfile 1-14 

Flow 1-12 

Initiation 1-12 

Maximum number 1-1 

Priority 2-5 

Processing 1-13 

Standard files 1-16 

Step 2-8 

Termination 1-14 
JOB on dayfile 1-14 
Job communication area 3-10; B- 1 
Job control file 1-12 
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Job identification statement 2- 1 

Parameters 2-3 

Syntax 2-1 
Job name 2-1 
Julian date on dayfile 1-14 



Keyword statements 3-8 



L parameter on LABEL 11-3,4 
L parameter on REDud-u ■*- i 
Label 

Content C- 1 

Density 11-8 

Groups C- 1 

Parity 11-8 

Character conversion 11-8 

Fields checked 11-4 

Fields generated 11-2 

Protection 11-6 

Standard 11-1; C-l 
LABEL statement 11-2 
Lace card 9-18 
LCM 

All- J-' A -1 

jfiilOCclLlOIl <±~ J. 

Used by job 1-16 

User control 4-6 
LDSET loader statement 

ERR option 3-17; 12-8 

Introduction 3-17 

LIB option 3-17,21 

MAP option 3-17; 12-17 

NOREWIN option 3-17; 4-15 

PRESET option 3-17; 4-8 

REWIND option 3-17; 4-15 
Level number 

COMPARE statement 10-13 

Partition 2-10 

SCOPE logical record 5-19, 21; 10- 13 

SKIPB statement 10-10 

SKIPF statement 10-7 

Section 2-9 

Z record 5-19,21 
LGO file 

Load from 3-4 

Used by compilers, assemblers 3-4 
LGO statement 3-4 
LIB loader option 3-17, 21 
LIBEDT 3-18 

LIB LOAD loader statement 3-22 
Libraries 

Definition 3-18 

Global 3-19 

Local 3-19 



NUCLEUS 3-19 

Sets 3-19 

System 3-19 

User 3-19 
Library organization of a file 5-26 
Library set definition 

Global 3-20 

Local 3-21 
LIBRARY statement 3-20 
LIMIT control statement 7-11 
Literals 2-7 

LL parameter on FILE statement 5-6; 
D-9; E-8 

T l\ ■*"**"» v*?~\ vv» *~\Jr qt-» 

uu pctj. diiictCx 

REQUEST 6-4, 14 
STAGE 6-4 
Load 

Call for 3-12 
Followed by execution 3-4 
From libraries 3-18,22,23 
From multiple files 3- 12 

From INPUT 3-7 
Introduction 1-5 
Maps 12-13 
Order of search 3-8 
Sequence 3-14 
Statements 3- 8, 14 

TTrJo.1 j. _ „ ..x.: -..- o 10 

VV lLHOUt CACCUUUU O- XO 

Load-and-go file 3-4 

LGO 3-4 

Renamed 3-5 

Substituted names 3-6 
Load sequence 3-14 
LOAD statement 

Load from file 3-12,23 

Load from library 3-16 
Loader statements 

EXECUTE 3-12 

INPUT 3-7 

LDSET 3-17,21; 4-8,15; 12-8,17 

LGO 3-4 

LIBLOAD 3-22 

LOAD 3-12,23 

Name call 3-7 

NOGO 3-13 

SLOAD 3-16 
Local library set 3-21 
LOD on dayfile 1-14 
Logical file 

Active for job 1-15 

Blocking 5-14 

COBOL block types 5-17 

COBOL object time name 1-19 

COBOL record types 5-9 

Conversion, character 6-6; 11-8 

Conversion, record or block E-l 
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Copying 10-1 

Data transfer requests 1-15 
Equating file names 1-18 
Error recovery 5-27; 6-18 
Even mode 6-6 

FORTRAN record constraints 5-8 
FORTRAN object time name 1-17; 3-4 
INPUTfile 1-12, 16; 3-7; 9-1 
Introduction 1-16 
Labeled 11-1 
Magnetic tape 6-1 
Mass storage 7- 1 
Maximum used by job 1-15 
Naming conventions 1-16; 3-4; 5-1 
No recovery 6-18 
Odd mode 6-6 
Open/ close requests 1-15 
OUTPUT file 1-17; 9-10 
Parity 6-6 

Positioning requests 1-15 
Processing direction 5-27 
PUNCH me 1-17; 9-19 
PUNCHB file 1-17; 9-19 
Record types 5-3, 8; D-l; E-l 
Suppress read ahead 6-16 
System files 1-16 
Unblocked 5-12 
Write check 7-9 
LP parameter on FILE statement 5-6; 
D-9; E-8 



M parameter on LABEL 11-3, 4 
Magnetic tape units 

Multiple amount 6-6 

On- Line 1-4; 6-13 

Requesting 6-13 

Staged 6-1 

Types 6-3 
Maintenance control unit 1-4 
MAP loader option 3-17; 12-17 
MAP statement 

Debug aid 12- 14 

Inside load sequence 3-14 
Mass storage 

Job limit 7-11 

System 1-4; 7-1 

Used 1-16 
Maximum block length 5-17 
Maximum record length 5-12; 10-6; E-l 
MBL parameter on FILE statement 5-17 
MCU 1-4 

MD modify password /permission 8-6 
Messages 

Dayfile 1-14 

Operator 4-10 
See comments 



Minimum record mark character 5-6; D-ll 
MNR parameter on FILE statement 

5-6; D-ll 
MODE control statement 12-6 
Modify password/permission 8-6 
MRL parameter on FILE statement 

5-12; 10-6; E-l 
MT parameter 

Job statement 2-3; 6-13 

REQUEST 6-13 

STAGE 6-3 
Multifile volume C-2 
Multiprogramming 1-1 
Multivolume file C-2 
Multivolume multifile C-3 
MUX 1-4 
M2 parameter on REQUEST 6-16 



N parameter 

REQUEST 11-2 

STAGE 11-2 
Nine-track tapes 6-3, 13 
NOGO statement 3-13 
Noise blocks 6-17 
No recovery 6-17 
NOREWIN option 3-17; 4-15 
NR option on LOAD 4-15 
NR parameter on REQUEST 6-18 
NR parameter on STAGE 6-18 
NT parameter 

Job statement 2-4; 6-13 

REQUEST 6-13 

STAGE 6-3 



Object module 1-5; 3-10 

OF parameter on FILE statement 10-12 

On-line tapes 

Configuration 1-4 

Accounting information 1-16 

Scheduling 6-13 

Use 6-13 

Used by job 1-16 
Operating registers 1-2 
OUTPUT file 

Dayfile 1-14 

Default for assemblers /compilers 1-17 

Default for copy routines 10-1 

Default for map 12-17 

Format 9-10 

Introduction 1-17 

Disposition of 9-14 

Printer control 9-10 

Unblocked required 9-10 
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W records required 
Writing on 9-10 



9-10 



P parameter on LABEL 11-3,4 
P parameter on job statement 2-5 
Parenthesis, left as separator 2-6 
Parenthesis, right as terminator 2-6 
Partition 

Comparing 10-13 

Copying 10-4 

File structure 5-19 

Punched 9-18 

Separator card 2-9; 9-18 
PAUSE statement 4-10 
PB on DISPOSE 9-20 
PD parameter on FILE statement 5-27 
PE parameter 

REQUEST 6-4, 14 

STAGE 6-4 
Period as terminator 

Control statement 2-6 

Job statement 2- 1 
Peripheral processor unit 1-4 
Permanent file 

Altering 8-10 

Attaching 8-2, 14 

Cataloging 8-2,9,14 

Cycles 8-1 

Extending 8-10 

Modifying 8- 7 

Name 8-1 

Passwords 8-5 

Permissions 8-9 

Purging 8-12 

Retention period 8-4 

SCOPE 2.0 8-1 

SCOPE 3.x 8-14 
POST on STAGE 6-2 
PPU 1-4 

PR on DISPOSE 9- 14 
PRE on STAGE 6-2 
PRESET option 3-17; 4-8 
Printer output 9-10 
Priority, job 2-5 
Privacy procedures 8-14 
Processing direction 5-27 
Processor code 2-4 
Product set, SCOPE 2 1-5 
PU on DISPOSE 9-20 
Publications, CDC iv 
PUNCH file 

Disposition 9-19 

Format 9-19 

Introduction 1-17 

Unblocked required 9-19 

W records required 9-19 



PUNCH B file 

Disposition 9-19 

Format 9-19 

Introduction 1-17 

Unblocked required 9-19 

W records required 9-19 
Punched cards 

ASCII input 9-3 

Coded input 9-3 

Coded output 9-19 

Disposition 9-20 

EOI 2-9; 9-18 

EOP 2-9; 9-18 

EOS 2-8; 9-18 

Forms control 9-21 

Free-form binary input 9-8 

Free-form binary output 9-20 

Hollerith input 9-3 

Hollerith output 9-19,20 

INPUT 3-7 

Input 9-3, 7, 8 

Lace card 9-18 

Mis punched 9-18 

Output 9-18 

Separator cards 9-18 

SCOPE binary input 9-7 

SCOPE binary output 9-19 
PURGE statement 8-12 
PW parameter 8-9 
PI on DISPOSE statement 9-14 
P2 on DISPOSE statement 9-14 
P8 on DISPOSE statement 9-20 



R option on LOAD 4-15 

R record type 5-6; D-ll; E-9 

R parameter on job statement 2-3; 4-13 

R parameter on LABEL 11-2 

RB parameter on FILE statement 5-17 

RD password/ permission 8-6 

Read password/permission 8-6 

Record 

Logical 5-3; D- 1 
Physical (see block) 
Record mark character 5-6; D-ll; E-9 
Record mark records 5-6; D-ll; E-9 
RECORD CONTAINS Clause 5-9 
Record manager 1-6; 5-1; D-l; E-l 
Record type 

D Decimal count 5-6; D-9; E-8 
F Fixed length 5-5; D-8; E-7 
R Record mark 5-6; D-ll; E-9 
S SCOPE logical 5-4; D-l; E-4 
T Trailer 5-6; D-13; E-10 
U Undefined 5-7; D-ll; E-ll 
W Word control 5-4; D-l; E-2 
X X-mode 5-5, D-4; E-5 



60372600 A 



Index- 7 



Z Zero byte 5-5; D-5; E-6 
Record type specification 5-3 
REDUCE statement 

In load sequence 3-14 

Use 4-6 
Relocatable modules 1-5; 3-10 
Rerun job 4- 13 
REQUEST statement 

On-line 6-13 

Mass storage 7-2 
Retention period 8-4 
RETURN statement 

Disposed file 7-10; 9-14 

Magnetic tape 6-17 

Mass storage 7-10 

On-line tape 6-17 

Permanent file 7-10 

Staged file 7-10 

System file 7-10 
Rewind before load 3-4; 4-15 
Rewind of load file 4-15 
REWIND option on LDSET 3-17; 4-15 
REWIND statement 4-15; 10-11 
RFL statement 4-5,6 
RMK parameter on FILE statement 

5-6; D-ll; E-9 
RP parameter on CATALOG 8-4 
RT parameter on FILE statement 

5-3; D-l; E- 1 
RUN compiler 

Introduction 1-7 

Object time file names 1-17; 3-4 

Statement 3- 1 



S parameter on REDUCE 4-6 
S record type 5-4, 16; D-l; E-4 
Satisfying of externals 3-10,14,19 
SCM 

Maximum allowed 4-3 

Minimum required 4-3 

Used by job 1-16 

User control 4-3 
SCOPE logical records 5-4, 16; D-l; E-4 
SCOPE 2 

Features 1-1 

Introduction 1-1 

Meaning of acronym 1- 1 

Operating environment 1-2 

Product set 1-5 
Section 

Comparing 10-13 

Copying 10-3 

Control statement 2-6 

File structure 5-21 

Punched 9-18 

Separator card 2-8 



SEGLOAD 1-6 
Segment loader 1-6 
SEGRES 1-6 
Selective load 3-16,23 
Separator cards 

End- of- information 2-9; 9-18 

End- of- partition 2-9; 9-18 

End- of- section 2-8; 9-18 

Free- form binary 9-8 
Separators on control statements 2-6 
Sequential file organization 5-26 
SF parameter on STAGE 6-11 
Single volume file C- 1 
SKIPB statement 10-10 
SKIPF statement 10-7 
Slant bar as separator 2-7 
SLOAD loader statement 3- 16, 23 
Sort/ merge program 1-7 
Spanning of blocks 5- 16 
Small core memory 

See SCM 
Software configuration 1-1 
Spooled files 9- 1 
SPR on FILE statement 6-16 
ST parameter 

ATTACH 8-14 

CATALOG 8-14 

DISPOSE 9-15 

PAUSE 4-10 

STAGE 6-4 
STAGE 6-1 

Staging 6-1 

Stage by blocks 6-10 

Stage by file 6-11 

Stage by volume 6-8 
Station 

General description 1-4 

Maintenance 1-4 

On day file 1-14 

6000 or CYBER 70 1-9 

7611-1 I/O station 1-10 

7611-2 Magnetic tape station 1-11 

7611-11 Service station 1-8 
SUMMARY statement 12-21 
Swap count 1-16 
SWITCH statement 4-11 
Switch, program 4-11 
Switch, pseudo sense 4-11 
SYS on dayfile 1- 14 
System controlled mode 4- 1 
System mass storage 1-4 



T parameter on LABEL 11-3, 6 
T record type 5-6; D-13; E-10 
T on job statement 2-3 
T transfer unit parameter 
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REQUEST 7-6 

STAGE 7-6 
Tape density 

REQUEST 6-3, 14 

STAGE 6-3 
Time limit for job 2-3,4 
Time used by job 1-16 
TK password/ permission 8-8 
TL parameter on FILE statement 5-6; 

D-13; E-10 
Trailer count records 5-6; D-13; E-10 
TRANSF statement 4-13 
TRAP statement 12-1 
Turnkey pas sword /per miss ion 8-8 



V parameter on LABEL 11-3, 4 
VF parameter on FILE 6-15 
Volume header label C-4 
Volume /header label group C- 1 
VOLI label C-4 
VSN parameter 

REQUEST 6-16 

STAGE 6-8 



W parameter on LABEL 11-2 
W record type 5-4, 16; D-l; E-2; 9-1 
WCK parameter on REQUEST 7-9 
Word addressable organization 5-26 



U parameter on LABEL 11-3, 6 
U record type 5-7; D-ll; E-ll 
U unit parameter 

REQUEST 7-8 

STAGE 7-8 
Undefined records 
UNLOAD statement 

Disposed file 

Magnetic tape 

Mass storage 

On-line tape ( 

Permanent file 7-10 

Staged file 7-10 

System file 7-10 
UPDATE program 1-7 
US parameter 

REQUEST 6-6; 11-8 

STAGE 6-6; 11-8 
USR on dayfile 1-14 
User, identified iii 



X record type 5-5, 16; D-4; E-5 



5-7; D-ll; 


E-ll 


Z record type 5-5; D-5; E-6 
Zero byte 5-5 


7-10 




Zero-length record 


6-17 




S record 5-4 


7-10 




W record 5-4 


i-17 




X record 5-5 
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INSTALLATION DEFINED PARAMETERS 



Use the following table to record values of parameters defined at your site. The table 
lists only those installation-defined defaults that affect control statement processing. 
Other default values are either not alterable, affect the internal performance of the 
system, or are not directly related to control statements. 



Parameter 

Job time limit (Tn) 

Job priority (Pn) 

SCM field assignment (CMn) 

LCM field assignment (ECn) 



Tape 1 ab el d en s iiy 



Retry count for parity errors 
Staging direction 

Mncus d+nt>nrto oil r»r> o+i r\r\ nni+C I A r\\ 

Mass storage limit for job 
Loader map 

Loader abort conditions 
Loader preset value 

Load file positioning 
Coded punched card format 

Station identifier (ggg) 
Terminal identifier (ttt) 



Default 



' — — — fi 
Automatic 

Automatic 



seconds 



7 -track magnetic tape units (MTn) units 

9-track magnetic tape units (NTn) units 

9-track conversion code (US/EB) — <- 

Tape data density (HLHY, LO, PE) 



MAU 



characters 



Range 



to 77777 8 (infinite) 



to 



to 



"8 



words 



to 

to 
to 



8 



thousand words 

units 
units 



ASCII or EBCDIC 
200, 556, or 800 bpi 

oaa e.c£ «*.„ or>n u*vi «-». 

same as data 

Pre or post 

1 to 16 MAU (A0 to A4) 

— — — . characters 



None, S, B, E, or X 

All/fatal/none 

None, zeros, ones, indef, 
inf. ngindef, nginf, alt. 
zeros, alt. ones. 

Rewind or no rewind 

Hollerith (026) or ASCII 
(029) 
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